From a8f34fc08311490bd11db6f05d7fd1ee376adb2e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Jun 1996 08:28:51 +0000 Subject: [PATCH] (abbreviate-file-name): Ignore automount-dir-prefix if nil. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index 089a553ce58..943622064f3 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -627,7 +627,8 @@ Choose the buffer's name using `generate-new-buffer-name'." This also substitutes \"~\" for the user's home directory. Type \\[describe-variable] directory-abbrev-alist RET for more information." ;; Get rid of the prefixes added by the automounter. - (if (and (string-match automount-dir-prefix filename) + (if (and automount-dir-prefix + (string-match automount-dir-prefix filename) (file-exists-p (file-name-directory (substring filename (1- (match-end 0)))))) (setq filename (substring filename (1- (match-end 0))))) -- 2.39.2