Mercurial > emacs
changeset 13810:64679d67fde9
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 18:08:12 +0000 |
| parents | db6a50dd1257 |
| children | 66fa6267358e |
| files | lisp/simple.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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"