diff options
| author | Colin Walters <walters@gnu.org> | 2002-09-30 04:25:38 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-09-30 04:25:38 +0000 |
| commit | 20e97ae684ce387adfdfec81d2075bb4ec2bb8fd (patch) | |
| tree | 3edf7fabd48fe6424a5c5fa7822ecd0e1f10211f /lisp/calc/calc-prog.el | |
| parent | b27614ceff00069db05489d08a07c50b14b33971 (diff) | |
| download | emacs-20e97ae684ce387adfdfec81d2075bb4ec2bb8fd.tar.gz | |
(calc-kbd-report, calc-kbd-query): Don't bind `executing-kbd-macro'
and `defining-kbd-macro'.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 14 |
1 files 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. |