mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

lisp/vc: Try and avoid quoting lambdas

Browse source 
* lisp/vc/pcvs.el (cvs-menu, cvs-minor-mode-map):
* lisp/vc/vc-hg.el (vc-hg--extract-headers):
* lisp/vc/vc-git.el (vc-git-show-stash): Don't quote lambdas.
This commit is contained in:
Stefan Monnier 2025-07-19 14:42:12 -04:00
parent 7300f50007
commit e35e18ac18
3 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/pcvs.el
View file

@ -222,7 +222,7 @@
"C-o" #'cvs-mode-display-file)
(easy-menu-define cvs-menu cvs-mode-map "Menu used in `cvs-mode'."
'("CVS"
`("CVS"
["Open file" cvs-mode-find-file t]
["Open in other window" cvs-mode-find-file-other-window t]
["Display in other window" cvs-mode-display-file t]
@ -257,8 +257,9 @@
["Unmark all" cvs-mode-unmark-all-files t]
["Hide handled" cvs-mode-remove-handled t]
"----"
["PCL-CVS Manual" (lambda () (interactive)
(info "(pcl-cvs)Top")) t]
["PCL-CVS Manual" ,(lambda () (interactive)
(info "(pcl-cvs)Top"))
t]
"----"
["Quit" cvs-mode-quit t]))
@ -273,9 +274,9 @@
(defvar-keymap cvs-minor-mode-map
(key-description cvs-minor-mode-prefix) 'cvs-mode-map
"e" '(menu-item nil cvs-mode-edit-log
:filter (lambda (x)
(and (derived-mode-p 'log-view-mode) x))))
"e" `(menu-item nil cvs-mode-edit-log
:filter ,(lambda (x)
(and (derived-mode-p 'log-view-mode) x))))
(require 'pcvs-defs)

12
lisp/vc/vc-git.el
View file

@ -241,14 +241,14 @@ The following place holders should be present in the string:
Default t means all, otherwise an integer specifying the maximum
number to show. A text button is always shown allowing you to
toggle display of the entire list."
:type '(choice (const :tag "All" t)
:type `(choice (const :tag "All" t)
(integer :tag "Limit"
:validate
(lambda (widget)
(unless (>= (widget-value widget) 0)
(widget-put widget :error
"Invalid value: must be a non-negative integer")
widget))))
,(lambda (widget)
(unless (>= (widget-value widget) 0)
(widget-put widget :error
"Invalid value: must be a non-negative integer")
widget))))
:version "27.1")
(defcustom vc-git-revision-complete-only-branches nil

6
lisp/vc/vc-hg.el
View file

@ -1260,9 +1260,9 @@ REV is ignored."
(defun vc-hg--extract-headers (comment)
(log-edit-extract-headers `(("Author" . "--user")
("Date" . "--date")
("Amend" . (lambda (value)
(when (equal value "yes")
(list "--amend")))))
("Amend" . ,(lambda (value)
(when (equal value "yes")
(list "--amend")))))
comment))
(defun vc-hg-find-revision (file rev buffer)