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

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index ad483b406d56e4c644cbc13296ec32425d7cd188..3996c377b19f9ea60e3e562690971c32239d632d 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -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))