procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Test for "" too; let it go to expand-file-name if it is equal.

Browse source
This commit is contained in:
Simon Marshall 1995-06-13 08:27:11 +00:00
parent 525c5be7dd
commit cc37a58ceb
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -355,7 +355,11 @@ Do not specify them in other calls."
;; to chase before getting an error.
;; PREV-DIRS can be a cons cell whose car is an alist
;; of truenames we've just recently computed.
(if (or (string= filename "~")
;; I don't understand the reason for these tests. To avoid string-match?
;; Something like (string-match "\\`\\'\\|~" filename) would do the same.
;; The last test looks dubious, maybe `+' is meant here? --simon.
(if (or (string= filename "") (string= filename "~")
(and (string= (substring filename 0 1) "~")
(string-match "~[^/]*" filename)))
(progn