Mercurial > emacs
diff lisp/simple.el @ 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 | 3147a1a92eeb |
| children | 37dec422bd7c |
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)