From: Juanma Barranquero Date: Wed, 12 Feb 2003 14:14:15 +0000 (+0000) Subject: (file-truename): Revert change from 2002-11-27. X-Git-Tag: ttn-vms-21-2-B4~11224 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b373bd3f77e143c895bae5ee6d0e227cce269df;p=emacs.git (file-truename): Revert change from 2002-11-27. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 773d4a06b3a..2d81a91486a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-02-12 Juanma Barranquero + + * files.el (file-truename): Revert change from 2002-11-27. + 2003-02-12 Luc Teirlinck * help-fns.el (describe-function-1): Change output for keyboard diff --git a/lisp/files.el b/lisp/files.el index 5ba163fc671..6d8aee3fe01 100644 --- 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