Commit e98dda89 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(abbreviate-file-name): Make abbreviated-home-dir

from `~/', not from just `~'.
parent a6c5a8dd
......@@ -509,10 +509,12 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; Compute and save the abbreviated homedir name.
;; We defer computing this until the first time it's needed, to
;; give time for directory-abbrev-alist to be set properly.
;; We include a slash at the end, to avoid spurious matches
;; such as `/usr/foobar' when the home dir is `/usr/foo'.
(or abbreviated-home-dir
(setq abbreviated-home-dir
(let ((abbreviated-home-dir "$foo"))
(concat "^" (abbreviate-file-name (expand-file-name "~"))))))
(concat "^" (abbreviate-file-name (expand-file-name "~/"))))))
;; If FILENAME starts with the abbreviated homedir,
;; make it start with `~' instead.
(if (string-match abbreviated-home-dir filename)
......
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