Mercurial > emacs
changeset 38027:a18180dc7aa1
(shell-command-on-region): Never kill the *Shell Command Output* buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jun 2001 15:26:29 +0000 |
| parents | ad9617225b8d |
| children | a5aad5623acc |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Jun 13 12:31:09 2001 +0000 +++ b/lisp/simple.el Wed Jun 13 15:26:29 2001 +0000 @@ -1434,9 +1434,10 @@ (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 @@ (< 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)))