Mercurial > emacs

diff lisp/files.el @ 4017:3a16b66a26d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cd-absolute): Use abbreviate-file-name on expansion of DIR.
author Roland McGrath <roland@gnu.org>
date Wed, 07 Jul 1993 06:26:31 +0000
parents ac63dbdb7ab7
children afa1ecd408e1
line wrap: on
line diff
--- a/lisp/files.el	Wed Jul 07 05:44:53 1993 +0000
+++ b/lisp/files.el	Wed Jul 07 06:26:31 1993 +0000
@@ -255,7 +255,7 @@
 
 (defun cd-absolute (dir)
   "Change current directory to given absolute file name DIR."
-  (setq dir (expand-file-name dir))
+  (setq dir (abbreviate-file-name (expand-file-name dir)))
   (if (not (eq system-type 'vax-vms))
       (setq dir (file-name-as-directory dir)))
   (if (not (file-directory-p dir))