Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

lisp/autoinsert.el (auto-insert-alist): Don't quote lambda

Browse source
This commit is contained in:
Stefan Monnier 2025-06-30 11:28:34 -04:00
parent 17d976e22e
commit 3efdb553e4
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/autoinsert.el
View file

@ -181,9 +181,9 @@ If this contains a %s, that will be replaced by the matching rule."
" . (("
(let ((all-variables
(apropos-internal ".*"
(lambda (symbol)
(and (boundp symbol)
(get symbol 'variable-documentation))))))
,(lambda (symbol)
(and (boundp symbol)
(get symbol 'variable-documentation))))))
(completing-read "Variable to set: " all-variables))
" . "
(completing-read "Value to set it to: " nil)
@ -206,11 +206,11 @@ If this contains a %s, that will be replaced by the matching rule."
;; Keywords: "
'(require 'finder)
;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))
'(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
'(setq v1 (mapcar ,(lambda (x) (list (symbol-name (car x))))
finder-known-keywords)
v2 (mapconcat (lambda (x) (format "%12s: %s" (car x) (cdr x)))
finder-known-keywords
"\n"))
finder-known-keywords
"\n"))
((let ((minibuffer-help-form v2))
(completing-read "Keyword, C-h: " v1 nil t))
str ", ")