Commit a92da273 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 7c3b9c62
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment