From 20e97ae684ce387adfdfec81d2075bb4ec2bb8fd Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Mon, 30 Sep 2002 04:25:38 +0000 Subject: [PATCH] (calc-kbd-report, calc-kbd-query): Don't bind `executing-kbd-macro' and `defining-kbd-macro'. --- lisp/calc/calc-prog.el | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index 160e7cfce2a..517cbb250af 100644 --- 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. -- 2.39.2