From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 Aug 1999 16:12:32 +0000 (+0000)
Subject: (shell-command-on-region): EXIT-STATUS can be a string.
X-Git-Tag: emacs-pretest-21.0.90~7294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a92da273b4f0c923dd118fb801d5af17417d8f2e;p=emacs.git

(shell-command-on-region): EXIT-STATUS can be a string.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a187ebbf8ea..183f1bb2df9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1329,7 +1329,7 @@ specifies the value of ERROR-BUFFER."
 					     (list buffer error-file)
 					   buffer)
 					 nil shell-command-switch command)))
-	  (setq success (and exit-status (zerop exit-status)))
+	  (setq success (and exit-status (equal 0 exit-status)))
 	  ;; Report the amount of output.
 	  (let ((lines (save-excursion
 			 (set-buffer buffer)