emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

VC revert: When un-adding, clear vc-backend property

Browse source 
* lisp/vc/vc.el (vc-revert-file, vc-revert-files): When
un-adding, clear vc-backend property (bug#81291).
This commit is contained in:
Sean Whitton 2026-06-24 10:29:50 +01:00
parent c8a86c1561
commit 070a3a356f
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/vc/vc.el
View file

@ -4987,11 +4987,11 @@ If FILE is a directory, revert all files inside that directory."
(vc-responsible-backend file)
(vc-backend file))
'revert file backup-file))
`((vc-state . ,(if (eq (vc-state file) 'added)
'unregistered
'up-to-date))
(vc-checkout-time
. ,(file-attribute-modification-time (file-attributes file)))))
(let ((state (vc-state file)))
`(,@(and (eq state 'added) '((vc-backend . nil)))
(vc-state . ,(if (eq state 'added) 'unregistered 'up-to-date))
(vc-checkout-time
. ,(file-attribute-modification-time (file-attributes file))))))
(vc-resynch-buffer file t t))
(defun vc-revert-files (backend files)
@ -5007,7 +5007,7 @@ For entries in FILES that are directories, revert all files inside them."
;; Use `vc-file-getprop' directly here because we may be
;; handling very many files and do not want to hit the disk.
`(,@(pcase (vc-file-getprop file 'vc-state)
('added '((vc-state . unregistered)))
('added '((vc-backend . nil) (vc-state . unregistered)))
;; If we have no known state for the file somehow, leave
;; it that way.
('nil nil)