(shell-command-on-region): Cope with exit-status being

nil, which happens if call-process-region was interrupted.

diff --git a/lisp/simple.el b/lisp/simple.el
index eb4f7a3f6db849fd820105fdde81f3c1ba19db18..61d031d211bcf8447339392904904b4597192629 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1324,7 +1324,7 @@ specifies the value of ERROR-BUFFER."
                                             (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)