From 3efdb553e4845eca0e637e3eefad483c3b15e021 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 30 Jun 2025 11:28:34 -0400 Subject: [PATCH] lisp/autoinsert.el (auto-insert-alist): Don't quote `lambda` --- lisp/autoinsert.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 4bda7452ddd..e7492d1b9ed 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -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 ", ")