diff lisp/diff.el @ 99893:34f4c0ab1342

(diff-sentinel): Take note of diff error return value.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 24 Nov 2008 21:11:12 +0000
parents ee5932bf781d
children d42aff5ca541
line wrap: on
line diff
--- a/lisp/diff.el	Mon Nov 24 21:01:14 2008 +0000
+++ b/lisp/diff.el	Mon Nov 24 21:11:12 2008 +0000
@@ -68,7 +68,9 @@
     (goto-char (point-max))
     (let ((inhibit-read-only t))
       (insert (format "\nDiff finished%s.  %s\n"
-		      (if (equal 0 code) " (no differences)" "")
+		      (cond ((equal 0 code) " (no differences)")
+			    ((equal 2 code) " (diff error)")
+			    (t ""))
 		      (current-time-string))))))
 
 (defvar diff-old-file nil)