diff options
| author | Richard M. Stallman | 1999-08-01 16:12:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-08-01 16:12:32 +0000 |
| commit | a92da273b4f0c923dd118fb801d5af17417d8f2e (patch) | |
| tree | b163cd05f901b5a2e09a8d9f25a63fb58c484f93 | |
| parent | 7c3b9c62f6beae9841b5303afb8e36fdaa2537c0 (diff) | |
| download | emacs-a92da273b4f0c923dd118fb801d5af17417d8f2e.tar.gz emacs-a92da273b4f0c923dd118fb801d5af17417d8f2e.zip | |
(shell-command-on-region): EXIT-STATUS can be a string.
| -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 a187ebbf8ea..183f1bb2df9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1329,7 +1329,7 @@ specifies the value of ERROR-BUFFER." | |||
| 1329 | (list buffer error-file) | 1329 | (list buffer error-file) |
| 1330 | buffer) | 1330 | buffer) |
| 1331 | nil shell-command-switch command))) | 1331 | nil shell-command-switch command))) |
| 1332 | (setq success (and exit-status (zerop exit-status))) | 1332 | (setq success (and exit-status (equal 0 exit-status))) |
| 1333 | ;; Report the amount of output. | 1333 | ;; Report the amount of output. |
| 1334 | (let ((lines (save-excursion | 1334 | (let ((lines (save-excursion |
| 1335 | (set-buffer buffer) | 1335 | (set-buffer buffer) |