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

(abbreviate-file-name): Match home dir with no / if nothing else follows.

parent d90f825c
......@@ -520,7 +520,9 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
(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)
......@@ -536,6 +538,7 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
(1- (length abbreviated-home-dir))))
"/"
"")
(substring filename (match-beginning 1) (match-end 1))
(substring filename (match-end 0)))))
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