# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 922502448 0
# Node ID d20e1cd24c00dce04a4e5bc47cc72aa5b2b75b90
# Parent  d4635382432285d0797d279a02c6ee741ad6f9c0
(shell-command-on-region): Cope with exit-status being
nil, which happens if call-process-region was interrupted.

diff -r d46353824322 -r d20e1cd24c00 lisp/simple.el
--- a/lisp/simple.el	Sat Mar 27 02:33:08 1999 +0000
+++ b/lisp/simple.el	Sat Mar 27 02:40:48 1999 +0000
@@ -1324,7 +1324,7 @@
 					     (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)