Fix recording keyboard macros in Calc

* lisp/calc/calc.el (calc-unread-command): Prevent recording
key twice when defining a keyboard macro.  Patch by Christoph
Arenz <tiga.arenz@web.de>.

Copyright-paperwork-exempt: yes
This commit is contained in:
Eli Zaretskii 2019-10-15 15:09:55 +03:00
parent fcb89237d9
commit c76b968374

View file

@ -3400,7 +3400,12 @@ See Info node `(calc)Defining Functions'."
(cons key key)))
(defun calc-unread-command (&optional input)
(push (or input last-command-event) unread-command-events))
(let ((event (or input last-command-event)))
;; Avoid recording twice the keys pressed while defining a
;; keyboard macro.
(when defining-kbd-macro
(setq event (cons 'no-record event)))
(push event unread-command-events)))
(defun calc-clear-unread-commands ()
(setq unread-command-events nil))