From b3c4423b207ec8f5c7ebc745fe9453f696d755b2 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 7 Jul 1993 06:26:31 +0000 Subject: [PATCH] (cd-absolute): Use abbreviate-file-name on expansion of DIR. --- lisp/files.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5