emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master c76b968: Fix recording keyboard macros in Calc


From: Eli Zaretskii
Subject: [Emacs-diffs] master c76b968: Fix recording keyboard macros in Calc
Date: Tue, 15 Oct 2019 08:11:34 -0400 (EDT)

branch: master
commit c76b968374e59b0d2c6f652b4f37555374f1ae7d
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 <address@hidden>.
    
    Copyright-paperwork-exempt: yes
---
 lisp/calc/calc.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index ad483b4..3996c37 100644
--- 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]