From: Roland McGrath <roland@gnu.org>
Date: Wed, 7 Jul 1993 06:26:31 +0000 (+0000)
Subject: (cd-absolute): Use abbreviate-file-name on expansion of DIR.
X-Git-Tag: emacs-19.34~11834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3c4423b207ec8f5c7ebc745fe9453f696d755b2;p=emacs.git

(cd-absolute): Use abbreviate-file-name on expansion of DIR.
---

diff --git a/lisp/files.el b/lisp/files.el
index f500fec5d99..9aa7cfef23b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -255,7 +255,7 @@ Not actually set up until the first time you you use it.")
 
 (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))