# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819569292 0
# Node ID 64679d67fde9772c45299ee4f7dd1b59cc8076ba
# Parent  db6a50dd1257e2f0ea68c8f39971b423a1576c80
(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 -r db6a50dd1257 -r 64679d67fde9 lisp/simple.el
--- a/lisp/simple.el	Thu Dec 21 18:07:18 1995 +0000
+++ b/lisp/simple.el	Thu Dec 21 18:08:12 1995 +0000
@@ -865,7 +865,8 @@
 		       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 @@
 (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 @@
 	       (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"