martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes to with-vc-properties

Browse Source 
* lisp/vc/vc.el (with-vc-properties): Un-gensym
'vc-touched-properties'; this is a dynamic variable.  Document
the longstanding behavior to capture 'file' while evaluating
SETTINGS, and to evaluate SETTINGS for each file to be updated.
Declare '(indent 0)'.
This commit is contained in:
Sean Whitton
2026-02-18 19:14:38 +00:00
parent c18469b20c
commit e832976f1a
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/vc/vc.el
View File

@@ -1248,12 +1248,14 @@ Not supported by all backends."
If any of FILES is actually a directory, then do the same for all
buffers for files in that directory.
SETTINGS is an association list of property/value pairs. After
executing FORM, set those properties from SETTINGS that have not yet
been updated to their corresponding values.
executing FORM, set those properties from SETTINGS for which FORM did
not call `vc-file-setprop' for that property (on any file). SETTINGS is
evaluated once per file whose properties are to be updated, with the
symbol `file' bound to the file name of each such file.
Return the result of evaluating FORM."
(declare (debug t))
(cl-with-gensyms (vc-touched-properties flist)
`(let ((,vc-touched-properties (list t))
(declare (debug t) (indent 0))
(cl-with-gensyms (flist)
`(let ((vc-touched-properties (list t))
(,flist nil))
(prog2 (dolist (file ,files)
(if (file-directory-p file)