From 481f397bac7451c06e25a8aea4599d564929a766 Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@suse.de>
Date: Sat, 27 Mar 1999 02:40:48 +0000
Subject: [PATCH] (shell-command-on-region): Cope with exit-status being nil,
 which happens if call-process-region was interrupted.

---
 lisp/simple.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index eb4f7a3f6d..61d031d211 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)
-- 
2.39.2