Mercurial > emacs
changeset 25147:820b95325cb5
(shell-command-on-region): EXIT-STATUS can be a string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Aug 1999 16:12:32 +0000 |
| parents | 1fa062857a8d |
| children | 01b59199fcbc |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sun Aug 01 12:55:28 1999 +0000 +++ b/lisp/simple.el Sun Aug 01 16:12:32 1999 +0000 @@ -1329,7 +1329,7 @@ (list buffer error-file) buffer) nil shell-command-switch command))) - (setq success (and exit-status (zerop exit-status))) + (setq success (and exit-status (equal 0 exit-status))) ;; Report the amount of output. (let ((lines (save-excursion (set-buffer buffer)