mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(blink-matching-open): Ignore `blink-matching-paren-on-screen' if

Browse source 
`show-paren-mode' is enabled.
(blink-matching-paren-on-screen): Update docstring.
This commit is contained in:
Luc Teirlinck 2005-11-27 15:53:16 +00:00
parent 181fcf0075
commit 92aa8a331e
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/simple.el
View file

@ -4259,7 +4259,9 @@ of the buffer appears in the mode line."
(defcustom blink-matching-paren-on-screen t
"*Non-nil means show matching open-paren when it is on screen.
If nil, means don't show it (but the open-paren can still be shown
when it is off screen)."
when it is off screen).
This variable is ignored if `show-paren-mode' is enabled."
:type 'boolean
:group 'paren-blinking)
@ -4328,10 +4330,11 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
((pos-visible-in-window-p blinkpos)
;; Matching open within window, temporarily move to blinkpos but only
;; if `blink-matching-paren-on-screen' is non-nil.
(when blink-matching-paren-on-screen
(save-excursion
(goto-char blinkpos)
(sit-for blink-matching-delay))))
(and blink-matching-paren-on-screen
(not show-paren-mode)
(save-excursion
(goto-char blinkpos)
(sit-for blink-matching-delay))))
(t
(save-excursion
(goto-char blinkpos)