Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-13 01:57:02 +00:00
parent d90f825cd8
commit 3a8a836d28
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/files.el
View file

@ -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))