Commit 7201bfbb authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(cd-absolute): Don't abbreviate-file-name (bug#4599).

parent cf885595
2009-10-01 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (cd-absolute): Don't abbreviate-file-name (bug#4599).
* vc-dispatcher.el (vc-resynch-window): Don't revert a buffer which
has no associated file.
(vc-resynch-buffer): Use vc-dir-buffers.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment