Mercurial > emacs
changeset 24525:d20e1cd24c00
(shell-command-on-region): Cope with exit-status being
nil, which happens if call-process-region was interrupted.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 27 Mar 1999 02:40:48 +0000 |
| parents | d46353824322 |
| children | a70f2306f60b |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Mar 27 02:33:08 1999 +0000 +++ b/lisp/simple.el Sat Mar 27 02:40:48 1999 +0000 @@ -1324,7 +1324,7 @@ (list buffer error-file) buffer) nil shell-command-switch command))) - (setq success (zerop exit-status)) + (setq success (and exit-status (zerop exit-status))) ;; Report the amount of output. (let ((lines (save-excursion (set-buffer buffer)