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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04977ca9f1490815db445d7a85d671738154dbd1..c5dd0e621c7ca897139500a762a25f4ca6fdcb24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-17  Tiago Saboga  <tiagosaboga@gmail.com>  (tiny change)
+
+       * files.el (save-some-buffers-action-alist): Fix last
+       change (Bug#3578).
+
 2009-06-17  Glenn Morris  <rgm@gnu.org>
 
        * files.el (dir-locals-set-directory-class): Fix doc typo.

diff --git a/lisp/files.el b/lisp/files.el
index 921724d8a799a302c4372286ad1bb1a8d12e95fa..91e046bc4af44146b91ee9abb57d25739f6fabee 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4358,7 +4358,7 @@ This requires the external program `diff' to be in your `exec-path'."
         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)