changeset 4017:3a16b66a26d9

(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 27d35763dda9
children 43a30cb1b170
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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))