mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(shell-command-on-region): Never kill the *Shell Command Output* buffer.

Browse Source
This commit is contained in:
Richard M. Stallman 2001-06-13 15:26:29 +00:00
parent 3d00585eb4
commit fd344fb75f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/simple.el
View File

@ -1434,9 +1434,10 @@ specifies the value of ERROR-BUFFER."
(list t error-file)
t)
nil shell-command-switch command))
(let ((shell-buffer (get-buffer "*Shell Command Output*")))
(and shell-buffer (not (eq shell-buffer (current-buffer)))
(kill-buffer shell-buffer)))
;;; It is rude to delete a buffer which the command is not using.
;;; (let ((shell-buffer (get-buffer "*Shell Command Output*")))
;;; (and shell-buffer (not (eq shell-buffer (current-buffer)))
;;; (kill-buffer shell-buffer)))
;; Don't muck with mark unless REPLACE says we should.
(and replace swap (exchange-point-and-mark)))
;; No prefix argument: put the output in a temp buffer,
@ -1485,8 +1486,7 @@ specifies the value of ERROR-BUFFER."
(< 0 (nth 7 (file-attributes error-file))))
"(Shell command %sed with some error output)"
"(Shell command %sed with no output)")
(if (equal 0 exit-status) "succeed" "fail"))
(kill-buffer buffer)))))
(if (equal 0 exit-status) "succeed" "fail"))))))
(when (and error-file (file-exists-p error-file))
(if (< 0 (nth 7 (file-attributes error-file)))