mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(shell-command-on-region): Cope with exit-status being

Browse Source 
nil, which happens if call-process-region was interrupted.
This commit is contained in:
Andreas Schwab 1999-03-27 02:40:48 +00:00
parent cb3fb87285
commit 481f397bac
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

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