diff options
| author | Richard M. Stallman | 1996-06-28 08:28:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-28 08:28:51 +0000 |
| commit | a8f34fc08311490bd11db6f05d7fd1ee376adb2e (patch) | |
| tree | 530146933c73ceefe5f7e83c0d31073843e70838 | |
| parent | 43432812899825f84433065241688965bbc13b83 (diff) | |
| download | emacs-a8f34fc08311490bd11db6f05d7fd1ee376adb2e.tar.gz emacs-a8f34fc08311490bd11db6f05d7fd1ee376adb2e.zip | |
(abbreviate-file-name): Ignore automount-dir-prefix if nil.
| -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'." | |||
| 627 | This also substitutes \"~\" for the user's home directory. | 627 | This also substitutes \"~\" for the user's home directory. |
| 628 | Type \\[describe-variable] directory-abbrev-alist RET for more information." | 628 | Type \\[describe-variable] directory-abbrev-alist RET for more information." |
| 629 | ;; Get rid of the prefixes added by the automounter. | 629 | ;; Get rid of the prefixes added by the automounter. |
| 630 | (if (and (string-match automount-dir-prefix filename) | 630 | (if (and automount-dir-prefix |
| 631 | (string-match automount-dir-prefix filename) | ||
| 631 | (file-exists-p (file-name-directory | 632 | (file-exists-p (file-name-directory |
| 632 | (substring filename (1- (match-end 0)))))) | 633 | (substring filename (1- (match-end 0)))))) |
| 633 | (setq filename (substring filename (1- (match-end 0))))) | 634 | (setq filename (substring filename (1- (match-end 0))))) |