# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1227561072 0
# Node ID 34f4c0ab1342e511643bd8414278dd1b80e7f75c
# Parent  32408fd1a76ac7de087325995958b407dd30ac0e
(diff-sentinel): Take note of diff error return value.

diff -r 32408fd1a76a -r 34f4c0ab1342 lisp/diff.el
--- 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)