Mercurial > emacs
comparison lisp/files.el @ 15548:ec7e7b99c680
(abbreviate-file-name): Ignore automount-dir-prefix if nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 Jun 1996 08:28:51 +0000 |
| parents | 74530b877334 |
| children | 6ec32e968edb |
comparison
equal
deleted
inserted
replaced
| 15547:c3e0ef571f08 | 15548:ec7e7b99c680 |
|---|---|
| 625 (defun abbreviate-file-name (filename) | 625 (defun abbreviate-file-name (filename) |
| 626 "Return a version of FILENAME shortened using `directory-abbrev-alist'. | 626 "Return a version of FILENAME shortened using `directory-abbrev-alist'. |
| 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))))) |
| 634 (let ((tail directory-abbrev-alist)) | 635 (let ((tail directory-abbrev-alist)) |
| 635 ;; If any elt of directory-abbrev-alist matches this name, | 636 ;; If any elt of directory-abbrev-alist matches this name, |