mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1996-01-09 23:14:47 +00:00
parent f750c3604e
commit 2f29e0c6d9
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/diff.el
View file

@ -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)