aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 9b42c756991..36f6be2f10a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4259,7 +4259,9 @@ of the buffer appears in the mode line."
4259(defcustom blink-matching-paren-on-screen t 4259(defcustom blink-matching-paren-on-screen t
4260 "*Non-nil means show matching open-paren when it is on screen. 4260 "*Non-nil means show matching open-paren when it is on screen.
4261If nil, means don't show it (but the open-paren can still be shown 4261If nil, means don't show it (but the open-paren can still be shown
4262when it is off screen)." 4262when it is off screen).
4263
4264This variable is ignored if `show-paren-mode' is enabled."
4263 :type 'boolean 4265 :type 'boolean
4264 :group 'paren-blinking) 4266 :group 'paren-blinking)
4265 4267
@@ -4328,10 +4330,11 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
4328 ((pos-visible-in-window-p blinkpos) 4330 ((pos-visible-in-window-p blinkpos)
4329 ;; Matching open within window, temporarily move to blinkpos but only 4331 ;; Matching open within window, temporarily move to blinkpos but only
4330 ;; if `blink-matching-paren-on-screen' is non-nil. 4332 ;; if `blink-matching-paren-on-screen' is non-nil.
4331 (when blink-matching-paren-on-screen 4333 (and blink-matching-paren-on-screen
4332 (save-excursion 4334 (not show-paren-mode)
4333 (goto-char blinkpos) 4335 (save-excursion
4334 (sit-for blink-matching-delay)))) 4336 (goto-char blinkpos)
4337 (sit-for blink-matching-delay))))
4335 (t 4338 (t
4336 (save-excursion 4339 (save-excursion
4337 (goto-char blinkpos) 4340 (goto-char blinkpos)