From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 08:28:51 +0000 (+0000)
Subject: (abbreviate-file-name): Ignore automount-dir-prefix if nil.
X-Git-Tag: emacs-19.34~314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8f34fc08311490bd11db6f05d7fd1ee376adb2e;p=emacs.git

(abbreviate-file-name): Ignore automount-dir-prefix if nil.
---

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