(shell-command-on-region): Report non-zero exit

status in mode line instead of buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3814ef2262b4c6d208e59ef940d31e3cd26ec09d..f979bcfcc25e9adb06b35103dd14dfd7ff3827ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-28  Kim F. Storm  <storm@cua.dk>
+
+       * simple.el (shell-command-on-region): Report non-zero exit
+       status in mode line instead of buffer.
+
 2002-02-27  Richard M. Stallman  <rms@gnu.org>
 
        * comint.el (comint-preoutput-filter-functions): Doc fix.

diff --git a/lisp/simple.el b/lisp/simple.el
index 6a0808c2cd669fbe3ad748848a99085e43c3a497..676264dc31a1f2549180d2bb1f1d288f54bf6f0f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1475,16 +1475,13 @@ specifies the value of ERROR-BUFFER."
                                         nil shell-command-switch command)))
          (setq success (and exit-status (equal 0 exit-status)))
          ;; Report the output.
+         (with-current-buffer buffer
+           (setq mode-line-process 
+                 (if (not success)
+                   (concat (format " - Exit [%d]" exit-status)))))
          (if (with-current-buffer buffer (> (point-max) (point-min)))
              ;; There's some output, display it
-             (progn
-               (if (not success)
-                   (with-current-buffer buffer
-                     (save-excursion
-                       (goto-char (point-max))
-                       (insert (format "...Shell command failed with code %d"
-                                       exit-status)))))
-               (display-message-or-buffer buffer))
+             (display-message-or-buffer buffer)
            ;; No output; error?
            (let ((output
                   (if (and error-file