[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F. Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.522 emacs/lisp/simple.el:1.523
*** emacs/lisp/simple.el:1.522  Wed Feb 20 17:33:01 2002
--- emacs/lisp/simple.el        Wed Feb 27 18:02:02 2002
***************
*** 1475,1490 ****
                                         nil shell-command-switch command)))
          (setq success (and exit-status (equal 0 exit-status)))
          ;; Report the output.
          (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))
            ;; No output; error?
            (let ((output
                   (if (and error-file
--- 1475,1487 ----
                                         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
!             (display-message-or-buffer buffer)
            ;; No output; error?
            (let ((output
                   (if (and error-file