# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 933523952 0
# Node ID 820b95325cb52c34eb392289c9baf77f67da4365
# Parent  1fa062857a8d5935ec69ef8291c29791ba684298
(shell-command-on-region): EXIT-STATUS can be a string.

diff -r 1fa062857a8d -r 820b95325cb5 lisp/simple.el
--- a/lisp/simple.el	Sun Aug 01 12:55:28 1999 +0000
+++ b/lisp/simple.el	Sun Aug 01 16:12:32 1999 +0000
@@ -1329,7 +1329,7 @@
 					     (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)