mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 14:11:38 -08:00
Code Issues Projects Releases Wiki Activity

(abbreviate-file-name): Don't convert / to ~/ when the home dir is /.

Browse source
This commit is contained in:
Richard M. Stallman 1994-01-14 18:06:40 +00:00
parent 0dee8d9be9
commit ca33ccb548
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/files.el
View file

@ -545,7 +545,10 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; If FILENAME starts with the abbreviated homedir,
;; make it start with `~' instead.
(if (string-match abbreviated-home-dir filename)
(if (and (string-match abbreviated-home-dir filename)
;; If the home dir is just /, don't change it.
(not (and (= (match-end 0) 1)
(= (aref filename 0) ?/))))
(setq filename
(concat "~"
;; If abbreviated-home-dir ends with a slash,