[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/09/22 15:01:41

Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.857
retrieving revision 1.858
diff -u -b -r1.857 -r1.858
--- files.el    20 Sep 2006 17:35:00 -0000      1.857
+++ files.el    22 Sep 2006 15:01:41 -0000      1.858
@@ -3729,7 +3729,13 @@
        ;; Return nil to ask about BUF again.
        nil)
      "view this file")
-    (?d diff-buffer-with-file
+    (?d (lambda (buf)
+         (save-window-excursion
+           (diff-buffer-with-file buf))
+         (view-buffer (get-buffer-create "*Diff*")
+                      (lambda (ignore) (exit-recursive-edit)))
+         (recursive-edit)
+         nil)
        "view changes in file"))
   "ACTION-ALIST argument used in call to `map-y-or-n-p'.")