From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Apr 2025 20:45:25 +0000 (-0400)
Subject: lisp/calc/calc-keypd.el (calc-keypad-vector-menu): Don't quote lambda
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=012795ad891f2aa23b23e10b76916502fafe29ee;p=emacs.git

lisp/calc/calc-keypd.el (calc-keypad-vector-menu): Don't quote lambda

(cherry picked from commit fce3f0ad4af9630f17bb9c7d3a9db11cae1f8a0d)
---

diff --git a/lisp/calc/calc-keypd.el b/lisp/calc/calc-keypd.el
index ed0282b5a9b..28c538fdccf 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 )