diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:28:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:28:51 +0000 |
| commit | a33f14f5375bab720c993f268f79ef9c4ec1fa92 (patch) | |
| tree | 33de16ebb583712bc31b8194ed4027976319fc7e /lisp | |
| parent | ffc1c13a6bcab65984906c0a4a365e8fbe0cd484 (diff) | |
| download | emacs-a33f14f5375bab720c993f268f79ef9c4ec1fa92.tar.gz | |
(abbreviate-file-name): Ignore automount-dir-prefix if nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))))) |