Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7201bfbb
Commit
7201bfbb
authored
Oct 01, 2009
by
Stefan Monnier
Browse files
(cd-absolute): Don't abbreviate-file-name (bug#4599).
parent
cf885595
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
1 deletion
+8
-1
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/files.el
lisp/files.el
+6
-1
No files found.
lisp/ChangeLog
View file @
7201bfbb
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.
...
...
lisp/files.el
View file @
7201bfbb
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment