diff options
| author | Roland McGrath | 1993-07-07 06:26:31 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-07-07 06:26:31 +0000 |
| commit | b3c4423b207ec8f5c7ebc745fe9453f696d755b2 (patch) | |
| tree | 45db6af8df0aacd123b83d44a38f8d1720092db4 | |
| parent | 96f4e22e3930bbd8c99447dc2dc835e9b7b38b6f (diff) | |
| download | emacs-b3c4423b207ec8f5c7ebc745fe9453f696d755b2.tar.gz emacs-b3c4423b207ec8f5c7ebc745fe9453f696d755b2.zip | |
(cd-absolute): Use abbreviate-file-name on expansion of DIR.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
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.") | |||
| 255 | 255 | ||
| 256 | (defun cd-absolute (dir) | 256 | (defun cd-absolute (dir) |
| 257 | "Change current directory to given absolute file name DIR." | 257 | "Change current directory to given absolute file name DIR." |
| 258 | (setq dir (expand-file-name dir)) | 258 | (setq dir (abbreviate-file-name (expand-file-name dir))) |
| 259 | (if (not (eq system-type 'vax-vms)) | 259 | (if (not (eq system-type 'vax-vms)) |
| 260 | (setq dir (file-name-as-directory dir))) | 260 | (setq dir (file-name-as-directory dir))) |
| 261 | (if (not (file-directory-p dir)) | 261 | (if (not (file-directory-p dir)) |