mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1999-08-01 16:12:32 +00:00
parent 7c3b9c62f6
commit a92da273b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/simple.el
View File

@ -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)