Commit a8f34fc0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 43432812
...@@ -627,7 +627,8 @@ Choose the buffer's name using `generate-new-buffer-name'." ...@@ -627,7 +627,8 @@ Choose the buffer's name using `generate-new-buffer-name'."
This also substitutes \"~\" for the user's home directory. This also substitutes \"~\" for the user's home directory.
Type \\[describe-variable] directory-abbrev-alist RET for more information." Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; Get rid of the prefixes added by the automounter. ;; 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 (file-exists-p (file-name-directory
(substring filename (1- (match-end 0)))))) (substring filename (1- (match-end 0))))))
(setq filename (substring filename (1- (match-end 0))))) (setq filename (substring filename (1- (match-end 0)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment