mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source 
(blink-matching-open): Obey it.

(shell-command-on-region): If current buffer is
*Shell Command Output*, use the replacement case.
This commit is contained in:
Karl Heuer 1995-12-21 18:08:12 +00:00
parent b55535f3b0
commit 29fc44ddbc
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/simple.el
View File

@ -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"