(calc-kbd-report, calc-kbd-query): Don't bind `executing-kbd-macro'

and `defining-kbd-macro'.

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 160e7cfce2a42600a7c57cc3c78365e279f1a81d..517cbb250af5bd2461acaf26c405e27847c1915c 100644 (file)
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1344,22 +1344,12 @@
 (defun calc-kbd-report (msg)
   (interactive "sMessage: ")
   (calc-wrapper
-   (let ((executing-kbd-macro nil)
-        (defining-kbd-macro nil))
-     (math-working msg (calc-top-n 1)))))
+   (math-working msg (calc-top-n 1))))
 
 (defun calc-kbd-query (msg)
   (interactive "sPrompt: ")
   (calc-wrapper
-   (let ((executing-kbd-macro nil)
-        (defining-kbd-macro nil))
-     (calc-alg-entry nil (and (not (equal msg "")) msg)))))
-
-
-
-
-
-
+   (calc-alg-entry nil (and (not (equal msg "")) msg))))
 
 ;;;; Logical operations.