/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.522 by rms, Wed Feb 20 22:33:01 2002 UTC revision 1.523 by kfstorm, Wed Feb 27 23:02:02 2002 UTC
# Line 1475  specifies the value of ERROR-BUFFER." Line 1475  specifies the value of ERROR-BUFFER."
1475                                           nil shell-command-switch command)))                                           nil shell-command-switch command)))
1476            (setq success (and exit-status (equal 0 exit-status)))            (setq success (and exit-status (equal 0 exit-status)))
1477            ;; Report the output.            ;; Report the output.
1478              (with-current-buffer buffer
1479                (setq mode-line-process
1480                      (if (not success)
1481                        (concat (format " - Exit [%d]" exit-status)))))
1482            (if (with-current-buffer buffer (> (point-max) (point-min)))            (if (with-current-buffer buffer (> (point-max) (point-min)))
1483                ;; There's some output, display it                ;; There's some output, display it
1484                (progn                (display-message-or-buffer buffer)
                 (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))  
1485              ;; No output; error?              ;; No output; error?
1486              (let ((output              (let ((output
1487                     (if (and error-file                     (if (and error-file

Legend:
Removed from v.1.522  
changed lines
  Added in v.1.523

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26