From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 21 Dec 1995 18:08:12 +0000 (+0000)
Subject: (blink-matching-paren-on-screen): New variable.
X-Git-Tag: emacs-19.34~2050
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29fc44ddbc1343e899e22ab55e62d092b8898a5c;p=emacs.git

(blink-matching-paren-on-screen): New variable.
(blink-matching-open): Obey it.

(shell-command-on-region): If current buffer is
*Shell Command Output*, use the replacement case.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index fa442280255..e58213e27fc 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -865,7 +865,8 @@ In either case, the output is inserted after point (leaving mark after it)."
 		       current-prefix-arg)))
   (if (or replace
 	  (and output-buffer
-	       (not (or (bufferp output-buffer) (stringp output-buffer)))))
+	       (not (or (bufferp output-buffer) (stringp output-buffer))))
+	  (equal (buffer-name (current-buffer)) "*Shell Command Output*"))
       ;; Replace specified region with output from command.
       (let ((swap (and replace (< start end))))
 	;; Don't muck with mark unless REPLACE says we should.
@@ -2610,6 +2611,11 @@ in the mode line."
 (defvar blink-matching-paren t
   "*Non-nil means show matching open-paren when close-paren is inserted.")
 
+(defvar blink-matching-paren-on-screen t
+  "*Non-nil means show matching open-paren when it is on screen.
+nil means don't show it (but the open-paren can still be shown
+when it is off screen.")
+
 (defconst blink-matching-paren-distance 12000
   "*If non-nil, is maximum distance to search for matching open-paren.")
 
@@ -2657,7 +2663,8 @@ in the mode line."
 	       (progn
 		(goto-char blinkpos)
 		(if (pos-visible-in-window-p)
-		    (sit-for blink-matching-delay)
+		    (and blink-matching-paren-on-screen
+			 (sit-for blink-matching-delay))
 		  (goto-char blinkpos)
 		  (message
 		   "Matches %s"