(file-truename): Revert change from 2002-11-27.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 773d4a06b3a4efeed343fd5addbfc87d6ee5c540..2d81a91486a50b48ea8274d00d585cace3aa2f5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-12  Juanma Barranquero  <lektu@terra.es>
+
+       * files.el (file-truename): Revert change from 2002-11-27.
+
 2003-02-12  Luc Teirlinck  <teirllm@mail.auburn.edu>
 
        * help-fns.el (describe-function-1): Change output for keyboard

diff --git a/lisp/files.el b/lisp/files.el
index 5ba163fc67150b40f8659e1afd04eeb7c865ba64..6d8aee3fe01f3ed2971a0d53728ee33e681232f1 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -682,10 +682,8 @@ Do not specify them in other calls."
            (setq filename (funcall handler 'file-truename filename))
          ;; If filename contains a wildcard, newname will be the old name.
          (unless (string-match "[[*?]" filename)
-           ;; If filename exists, use the long name, otherwise
-           ;; canonicalize the name, to handle case differences.
-           (setq filename (or (w32-long-file-name filename)
-                              (untranslated-canonical-name filename)))))
+           ;; If filename exists, use the long name
+           (setq filename (or (w32-long-file-name filename) filename))))
        (setq done t)))
 
     ;; If this file directly leads to a link, process that iteratively