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 ed0282b5a9b167986d636f3c65205ff388732117..28c538fdccf794a70e7c4baea89ed8fef105931d 100644 (file)
--- 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 )