Mercurial > emacs

changeset 47697:34ce7f0515d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-kbd-report, calc-kbd-query): Don't bind `executing-kbd-macro' and `defining-kbd-macro'.
author Colin Walters <walters@gnu.org>
date Mon, 30 Sep 2002 04:25:38 +0000
parents 6e1c8f17ab33
children 77511decc5ff
files lisp/calc/calc-prog.el
diffstat 1 files changed, 2 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-prog.el	Mon Sep 30 04:25:15 2002 +0000
+++ b/lisp/calc/calc-prog.el	Mon Sep 30 04:25:38 2002 +0000
@@ -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.