diff options
| author | Richard M. Stallman <[email protected]> | 1999-08-01 16:12:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1999-08-01 16:12:32 +0000 |
| commit | a92da273b4f0c923dd118fb801d5af17417d8f2e (patch) | |
| tree | b163cd05f901b5a2e09a8d9f25a63fb58c484f93 /lisp/simple.el | |
| parent | 7c3b9c62f6beae9841b5303afb8e36fdaa2537c0 (diff) | |
(shell-command-on-region): EXIT-STATUS can be a string.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index a187ebbf8e..183f1bb2df 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) |