diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-10-01 03:34:04 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-10-01 03:34:04 +0000 |
| commit | 7201bfbb317110daf459bb2d201fbb549e9aa50e (patch) | |
| tree | f30022dd135cdbec057f0706be957bc653c2a3d7 /lisp/files.el | |
| parent | cf885595142fefb8a39fc16827c780225833b692 (diff) | |
| download | emacs-7201bfbb317110daf459bb2d201fbb549e9aa50e.tar.gz | |
(cd-absolute): Don't abbreviate-file-name (bug#4599).
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 3fde2812f0c..a7eac5fb63e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -648,7 +648,12 @@ Directories are separated by occurrences of `path-separator' ;; Put the name into directory syntax now, ;; because otherwise expand-file-name may give some bad results. (setq dir (file-name-as-directory dir)) - (setq dir (abbreviate-file-name (expand-file-name dir))) + ;; We used to additionally call abbreviate-file-name here, for an + ;; unknown reason. Problem is that most buffers are setup + ;; without going through cd-absolute and don't call + ;; abbreviate-file-name on their default-directory, so the few that + ;; do end up using a superficially different directory. + (setq dir (expand-file-name dir)) (if (not (file-directory-p dir)) (if (file-exists-p dir) (error "%s is not a directory" dir) |