Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2009-10-01 03:34:04 +00:00
parent cf88559514
commit 7201bfbb31
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
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.

7
lisp/files.el
View file

@ -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)