Commit b3c4423b authored by Roland McGrath's avatar Roland McGrath
Browse files

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

parent 96f4e22e
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment