[Emacs-diffs] emacs/lisp ChangeLog files.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/17 15:06:29

Modified files:
        lisp           : ChangeLog files.el 

Log message:
        * files.el (save-some-buffers-action-alist): Fix last change (Bug#3578).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15685&r2=1.15686
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1049&r2=1.1050

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15685
retrieving revision 1.15686
diff -u -b -r1.15685 -r1.15686
--- ChangeLog   17 Jun 2009 02:54:49 -0000      1.15685
+++ ChangeLog   17 Jun 2009 15:06:25 -0000      1.15686
@@ -1,3 +1,8 @@
+2009-06-17  Tiago Saboga  <address@hidden>  (tiny change)
+
+       * files.el (save-some-buffers-action-alist): Fix last
+       change (Bug#3578).
+
 2009-06-17  Glenn Morris  <address@hidden>
 
        * files.el (dir-locals-set-directory-class): Fix doc typo.

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1049
retrieving revision 1.1050
diff -u -b -r1.1049 -r1.1050
--- files.el    17 Jun 2009 02:54:52 -0000      1.1049
+++ files.el    17 Jun 2009 15:06:29 -0000      1.1050
@@ -4358,7 +4358,7 @@
         nil)
      "view this buffer")
     (?d ,(lambda (buf)
-           (if (null buffer-file-name)
+           (if (null (buffer-file-name buf))
                (message "Not applicable: no file")
              (save-window-excursion (diff-buffer-with-file buf))
              (if (not enable-recursive-minibuffers)