Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Fix last change.

Browse source
This commit is contained in:
Sean Whitton 2026-06-10 13:37:57 +01:00
parent cd84bd6a0c
commit 9cad2da66e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc/vc-dir.el
View file

@ -1275,10 +1275,10 @@ that file."
;; FIXME: Warning: UGLY HACK. The CVS backend caches the state ;; FIXME: Warning: UGLY HACK. The CVS backend caches the state
;; info, this forces the backend to update it. ;; info, this forces the backend to update it.
(vc-call-backend vc-dir-backend 'registered fname)) (vc-call-backend vc-dir-backend 'registered fname))
(let ((default-directory def-dir) (let* ((default-directory def-dir)
(state (vc-call-backend vc-dir-backend 'state fname-short)) (state (vc-call-backend vc-dir-backend 'state fname-short))
(extra (vc-call-backend vc-dir-backend (extra (vc-call-backend vc-dir-backend
'status-fileinfo-extra fname-short))) 'status-fileinfo-extra fname-short)))
;; Ensure we return a nil state if the file does not exist and is ;; Ensure we return a nil state if the file does not exist and is
;; not tracked so that it disappears from VC-Dir (bug#81191). ;; not tracked so that it disappears from VC-Dir (bug#81191).
(if (and (eq state 'up-to-date) (not (file-exists-p fname))) (if (and (eq state 'up-to-date) (not (file-exists-p fname)))