From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Jan 1996 23:14:47 +0000 (+0000)
Subject: (diff): Set compilation-exit-message-function.
X-Git-Tag: emacs-19.34~1754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f29e0c6d98976c706792255d157f4b8d142d16d;p=emacs.git

(diff): Set compilation-exit-message-function.
---

diff --git a/lisp/diff.el b/lisp/diff.el
index eb2e4152896..2d681b8af27 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -220,6 +220,19 @@ With prefix arg, prompt for diff switches."
 				  "No more differences" "Diff"
 				  'diff-parse-differences))
 	  (pop-to-buffer buf)
+	  ;; Avoid frightening people with "abnormally terminated"
+	  ;; if diff finds differences.
+	  (set (make-local-variable 'compilation-exit-message-function)
+	       (lambda (proc msg)
+		 (let ((code (process-exit-status proc)))
+		   (if (eq (process-status proc) 'exit)
+		       (cond ((zerop code)
+			      '("finished (no differences)\n" . "finished"))
+			     ((= code 1)
+			      '("finished\n" . "finished"))
+			     (t
+			      (cons msg code)))
+		     (cons msg code)))))
 	  (set (make-local-variable 'diff-old-file) old)
 	  (set (make-local-variable 'diff-new-file) new)
 	  (set (make-local-variable 'diff-old-temp-file) old-alt)