diff options
| author | Andreas Schwab | 1999-03-27 02:40:48 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1999-03-27 02:40:48 +0000 |
| commit | 481f397bac7451c06e25a8aea4599d564929a766 (patch) | |
| tree | 71607d1edb83412bef8f69ed2fa736667e8beb8c | |
| parent | cb3fb87285064d2a3c841027d1eff963fcef04c7 (diff) | |
| download | emacs-481f397bac7451c06e25a8aea4599d564929a766.tar.gz emacs-481f397bac7451c06e25a8aea4599d564929a766.zip | |
(shell-command-on-region): Cope with exit-status being
nil, which happens if call-process-region was interrupted.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index eb4f7a3f6db..61d031d211b 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1324,7 +1324,7 @@ specifies the value of ERROR-BUFFER." | |||
| 1324 | (list buffer error-file) | 1324 | (list buffer error-file) |
| 1325 | buffer) | 1325 | buffer) |
| 1326 | nil shell-command-switch command))) | 1326 | nil shell-command-switch command))) |
| 1327 | (setq success (zerop exit-status)) | 1327 | (setq success (and exit-status (zerop exit-status))) |
| 1328 | ;; Report the amount of output. | 1328 | ;; Report the amount of output. |
| 1329 | (let ((lines (save-excursion | 1329 | (let ((lines (save-excursion |
| 1330 | (set-buffer buffer) | 1330 | (set-buffer buffer) |