From cc37a58cebc29aed3ef044d8b977f41a38d86753 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Tue, 13 Jun 1995 08:27:11 +0000 Subject: [PATCH] Test for "" too; let it go to expand-file-name if it is equal. --- lisp/files.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index a9bf39ef6fb..763fac09125 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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 -- 2.39.2