From: Andreas Schwab <schwab@suse.de>
Date: Sat, 27 Mar 1999 02:40:48 +0000 (+0000)
Subject: (shell-command-on-region): Cope with exit-status being
X-Git-Tag: emacs-20.4~424
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=481f397bac7451c06e25a8aea4599d564929a766;p=emacs.git

(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 eb4f7a3f6db..61d031d211b 100644
--- 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)