Skip to content

GitLab

Commit 20e97ae6 authored by Colin Walters's avatar Colin Walters
Browse files

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

and `defining-kbd-macro'.
parent b27614ce
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 12 deletions
lisp/calc/calc-prog.el
View file @ 20e97ae6
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment