diff options
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 688b71b5bd4..dc07a02473a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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)) |