mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

* lisp/vc/vc-dispatcher.el (vc-log-edit): Un-quote the lambda

Browse Source
This commit is contained in:
Stefan Monnier 2022-07-21 19:50:23 -04:00
parent 5c8be6fd6c
commit d9f05b7e4f
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/vc/vc-dispatcher.el
View File

@ -636,23 +636,23 @@ NOT-URGENT means it is ok to continue if the user says not to save."
(and (local-variable-p 'vc-log-fileset)
(not (equal vc-log-fileset fileset))))
`((log-edit-listfun
. (lambda ()
;; FIXME: When fileset includes directories, and
;; there are relevant ChangeLog files inside their
;; children, we don't find them. Either handle it
;; in `log-edit-insert-changelog-entries' by
;; walking down the file trees, or somehow pass
;; `fileset-only-files' from `vc-next-action'
;; through to this function.
(let ((root (vc-root-dir)))
;; Returns paths relative to the root, so that
;; `log-edit-changelog-insert-entries'
;; substitutes them in correctly later, even when
;; `vc-checkin' was called from a file buffer, or
;; a non-root VC-Dir buffer.
(mapcar
(lambda (file) (file-relative-name file root))
',fileset))))
. ,(lambda ()
;; FIXME: When fileset includes directories, and
;; there are relevant ChangeLog files inside their
;; children, we don't find them. Either handle it
;; in `log-edit-insert-changelog-entries' by
;; walking down the file trees, or somehow pass
;; `fileset-only-files' from `vc-next-action'
;; through to this function.
(let ((root (vc-root-dir)))
;; Returns paths relative to the root, so that
;; `log-edit-changelog-insert-entries'
;; substitutes them in correctly later, even when
;; `vc-checkin' was called from a file buffer, or
;; a non-root VC-Dir buffer.
(mapcar
(lambda (file) (file-relative-name file root))
fileset))))
(log-edit-diff-function . vc-diff)
(log-edit-vc-backend . ,backend)
(vc-log-fileset . ,fileset))