* files.el (file-equal-p): Fix docstring. Avoid unnecessary

access of FILE2, if FILE1 does not exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8df640a3c99eb3007cf3a8f147e88ce96deebf2b..a320976a74fbdcc363571b5ec0243be241724e65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-01  Michael Albinus  <michael.albinus@gmx.de>
+
+       * files.el (file-equal-p): Fix docstring.  Avoid unnecessary
+       access of FILE2, if FILE1 does not exist.
+
 2012-03-01  Michael R. Mauger  <mmaug@yahoo.com>
 
        * progmodes/sql.el: Bug fix

diff --git a/lisp/files.el b/lisp/files.el
index 0d687a157fee0ee5f76123a58fc06f408c61c153..88ebb9eaab43a2a28f06ffe28764ffeee67eb78b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4986,15 +4986,16 @@ given.  With a prefix argument, TRASH is nil."
       (delete-directory-internal directory)))))
 
 (defun file-equal-p (file1 file2)
-  "Return non-nil if existing files FILE1 and FILE2 name the same file.
-Return nil if one or both files doesn't exists."
+  "Return non-nil if files FILE1 and FILE2 name the same file.
+If FILE1 or FILE2 does not exist, the return value is unspecified."
   (let ((handler (or (find-file-name-handler file1 'file-equal-p)
                      (find-file-name-handler file2 'file-equal-p))))
     (if handler
         (funcall handler 'file-equal-p file1 file2)
-      (let ((f1-attr (file-attributes (file-truename file1)))
-            (f2-attr (file-attributes (file-truename file2))))
-        (and f1-attr f2-attr (equal f1-attr f2-attr))))))
+      (let (f1-attr f2-attr)
+        (and (setq f1-attr (file-attributes (file-truename file1)))
+            (setq f2-attr (file-attributes (file-truename file2)))
+            (equal f1-attr f2-attr))))))
 
 (defun file-subdir-of-p (dir1 dir2)
   "Return non-nil if DIR1 is a subdirectory of DIR2.