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 to vc-dir-recompute-file-state.

Browse source
This commit is contained in:
Sean Whitton 2026-06-09 14:37:54 +01:00
parent 89bda8736a
commit abddd2075a
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1275,14 +1275,14 @@ that file."
;; FIXME: Warning: UGLY HACK. The CVS backend caches the state
;; info, this forces the backend to update it.
(vc-call-backend vc-dir-backend 'registered fname))
;; Ensure we return a nil state if the file does not exist so that
;; it disappears from VC-Dir (bug#81191).
(if (file-exists-p fname)
(list fname-short
(vc-call-backend vc-dir-backend 'state fname)
(vc-call-backend vc-dir-backend
'status-fileinfo-extra fname))
(list fname-short nil nil))))
(let ((state (vc-call-backend vc-dir-backend 'state fname))
(extra (vc-call-backend vc-dir-backend
'status-fileinfo-extra fname)))
;; 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).
(if (and (eq state 'up-to-date) (not (file-exists-p fname)))
(list fname-short nil nil)
(list fname-short state extra)))))
(defun vc-dir-find-child-files (dirname)
;; Give a DIRNAME string return the list of all child files shown in