From fce3f0ad4af9630f17bb9c7d3a9db11cae1f8a0d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 4 Apr 2025 16:45:25 -0400 Subject: [PATCH] lisp/calc/calc-keypd.el (calc-keypad-vector-menu): Don't quote lambda --- lisp/calc/calc-keypd.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el index ad2b1741181..c3cc643fa53 100644 --- a/lisp/calc/calc-keypd.el +++ b/lisp/calc/calc-keypd.el @@ -172,13 +172,13 @@ ;; |PACK|UNPK|INDX|BLD |LEN |... | (defvar calc-keypad-vector-menu - '( ( ( "SUM" calc-vector-sum calc-vector-alt-sum calc-vector-mean ) + `( ( ( "SUM" calc-vector-sum calc-vector-alt-sum calc-vector-mean ) ( "PROD" calc-vector-product nil calc-vector-sdev ) ( "MAX" calc-vector-max calc-vector-min calc-vector-median ) - ( "MAP*" (lambda () (interactive) - (calc-map '(2 calcFunc-mul "*"))) ) - ( "MAP^" (lambda () (interactive) - (calc-map '(2 calcFunc-pow "^"))) ) + ( "MAP*" ,(lambda () (interactive) + (calc-map '(2 calcFunc-mul "*"))) ) + ( "MAP^" ,(lambda () (interactive) + (calc-map '(2 calcFunc-pow "^"))) ) ( "MAP$" calc-map-stack ) ) ( ( "MINV" calc-inv ) ( "MDET" calc-mdet )