# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835950531 0
# Node ID ec7e7b99c680443e1d23fb04cd393071970ed28c
# Parent  c3e0ef571f0899e930e11378e329ea5099da6ff1
(abbreviate-file-name): Ignore automount-dir-prefix if nil.

diff -r c3e0ef571f08 -r ec7e7b99c680 lisp/files.el
--- a/lisp/files.el	Fri Jun 28 08:25:55 1996 +0000
+++ b/lisp/files.el	Fri Jun 28 08:28:51 1996 +0000
@@ -627,7 +627,8 @@
 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)))))