diff options
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index b47411f206a..96d7ae7cf16 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1855,7 +1855,13 @@ The value includes abbreviation according to `directory-abbrev-alist'.") | |||
| 1855 | "Return a version of FILENAME shortened using `directory-abbrev-alist'. | 1855 | "Return a version of FILENAME shortened using `directory-abbrev-alist'. |
| 1856 | This also substitutes \"~\" for the user's home directory (unless the | 1856 | This also substitutes \"~\" for the user's home directory (unless the |
| 1857 | home directory is a root directory) and removes automounter prefixes | 1857 | home directory is a root directory) and removes automounter prefixes |
| 1858 | \(see the variable `automount-dir-prefix')." | 1858 | \(see the variable `automount-dir-prefix'). |
| 1859 | |||
| 1860 | When this function is first called, it caches the user's home | ||
| 1861 | directory as a regexp in `abbreviated-home-dir', and reuses it | ||
| 1862 | afterwards. Lisp programs that temporarily set the home directory | ||
| 1863 | to a different value should let-bind `abbreviated-home-dir' for | ||
| 1864 | the modified home directory to take effect." | ||
| 1859 | ;; Get rid of the prefixes added by the automounter. | 1865 | ;; Get rid of the prefixes added by the automounter. |
| 1860 | (save-match-data | 1866 | (save-match-data |
| 1861 | (if (and automount-dir-prefix | 1867 | (if (and automount-dir-prefix |