all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#14135: <f4> not recording macro
@ 2013-04-03 21:53 Juanma Barranquero
  2013-04-05  7:28 ` Leo Liu
  0 siblings, 1 reply; 4+ messages in thread
From: Juanma Barranquero @ 2013-04-03 21:53 UTC (permalink / raw)
  To: 14135

Package: emacs
Version: 24.3.50

emacs -Q
<f3>    ;; Defining kbd macro...
a
<f4>    ;; Keyboard macro defined
<f4>    ;; No kbd macro has been defined





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#14135: <f4> not recording macro
  2013-04-03 21:53 bug#14135: <f4> not recording macro Juanma Barranquero
@ 2013-04-05  7:28 ` Leo Liu
  2013-04-05  8:28   ` Juanma Barranquero
  0 siblings, 1 reply; 4+ messages in thread
From: Leo Liu @ 2013-04-05  7:28 UTC (permalink / raw)
  To: Juanma Barranquero; +Cc: 14135

On 2013-04-04 05:53 +0800, Juanma Barranquero wrote:
> Package: emacs
> Version: 24.3.50
>
> emacs -Q
> <f3>    ;; Defining kbd macro...
> a
> <f4>    ;; Keyboard macro defined
> <f4>    ;; No kbd macro has been defined

Thanks for the bug report. Sorry this is broken by my commit.

Could you give the following patch a good test? Thanks a lot. -- Leo

diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index c08f49df..d6de2feb 100644
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -631,11 +631,11 @@ (defun kmacro-call-macro (arg &optional no-repeat end-macro macro)
                                   (> (length (this-single-command-keys)) 1))
                              ;; Used when we're in the process of repeating.
                              (eq no-repeat 'repeating))
-			 last-input-event))
-	(last-kbd-macro (or macro last-kbd-macro)))
+			 last-input-event)))
     (if end-macro
-	(kmacro-end-macro arg)
-      (call-last-kbd-macro arg #'kmacro-loop-setup-function))
+	(kmacro-end-macro arg)		; modifies last-kbd-macro
+      (let ((last-kbd-macro (or macro last-kbd-macro)))
+	(call-last-kbd-macro arg #'kmacro-loop-setup-function)))
     (when (consp arg)
       (setq arg (car arg)))
     (when (and (or (null arg) (> arg 0))
@@ -658,7 +658,9 @@ (defun kmacro-call-macro (arg &optional no-repeat end-macro macro)
          (define-key map (vector repeat-key)
            `(lambda () (interactive)
               (kmacro-call-macro ,(and kmacro-call-repeat-with-arg arg)
-                                 'repeating nil ,last-kbd-macro)))
+                                 'repeating nil ,(if end-macro
+						     last-kbd-macro
+						   (or macro last-kbd-macro)))))
          map)))))






^ permalink raw reply related	[flat|nested] 4+ messages in thread

* bug#14135: <f4> not recording macro
  2013-04-05  7:28 ` Leo Liu
@ 2013-04-05  8:28   ` Juanma Barranquero
  2013-04-05  8:40     ` Leo Liu
  0 siblings, 1 reply; 4+ messages in thread
From: Juanma Barranquero @ 2013-04-05  8:28 UTC (permalink / raw)
  To: Leo Liu; +Cc: 14135

On Fri, Apr 5, 2013 at 9:28 AM, Leo Liu <sdl.web@gmail.com> wrote:

> Could you give the following patch a good test?

I'm not so heavy a user of macros to give it a "good test", but the
broken functionality is restored.

Thanks,

   J





^ permalink raw reply	[flat|nested] 4+ messages in thread

* bug#14135: <f4> not recording macro
  2013-04-05  8:28   ` Juanma Barranquero
@ 2013-04-05  8:40     ` Leo Liu
  0 siblings, 0 replies; 4+ messages in thread
From: Leo Liu @ 2013-04-05  8:40 UTC (permalink / raw)
  To: Juanma Barranquero; +Cc: 14135-done

Fixed in trunk.

On 2013-04-05 16:28 +0800, Juanma Barranquero wrote:
> I'm not so heavy a user of macros to give it a "good test", but the
> broken functionality is restored.

Thanks.
Leo





^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2013-04-05  8:40 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-04-03 21:53 bug#14135: <f4> not recording macro Juanma Barranquero
2013-04-05  7:28 ` Leo Liu
2013-04-05  8:28   ` Juanma Barranquero
2013-04-05  8:40     ` Leo Liu

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.