From 3a8a836d28ba26ce78d1d672d8657f9c080ef36b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 13 Jun 1993 01:57:02 +0000 Subject: [PATCH] (abbreviate-file-name): Match home dir with no / if nothing else follows. --- lisp/files.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))