emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-11 16:26:38 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

vc-working-revision: Don't bind default-directory to a relative name

Browse source 
* lisp/vc/vc-hooks.el (vc-working-revision): Don't bind
default-directory to a relative file name.
This commit is contained in:
Sean Whitton 2026-07-29 11:04:29 +01:00
parent ab88a0be86
commit 5b5cc17832
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/vc-hooks.el
View file

@ -587,12 +587,13 @@ If FILE is not registered, this function always returns nil.
This function does not return nil without first confirming with the
underlying VCS that FILE is unregistered; this is in contrast to
`vc-symbolic-working-revision'."
(or (vc-file-getprop file 'vc-working-revision)
(let ((default-directory (file-name-directory file)))
(and (setq backend (or backend (vc-backend file)))
(vc-file-setprop file 'vc-working-revision
(vc-call-backend backend 'working-revision
file))))))
(let ((abs (expand-file-name file)))
(or (vc-file-getprop abs 'vc-working-revision)
(let ((default-directory (file-name-directory abs)))
(and (setq backend (or backend (vc-backend file)))
(vc-file-setprop abs 'vc-working-revision
(vc-call-backend backend 'working-revision
file)))))))
(defun vc-symbolic-working-revision (file &optional backend)
"Return BACKEND's symbolic name for FILE's working revision.