From a92da273b4f0c923dd118fb801d5af17417d8f2e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Aug 1999 16:12:32 +0000 Subject: [PATCH] (shell-command-on-region): EXIT-STATUS can be a string. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5