kbd macro fails evaluation

kbd macro fails evaluation

[Colin Baxter]

With emacs-28

1. emacs -Q
2. <f3> <RET>
3. C-x 8 <RET> FULLWIDTH FULL STOP <RET>
4. <f4> <RET>
5. C-x C-k n <RET>
6. myfullstop <RET>
7. Change to scratch buffer if necessary.
8. M-x insert-kbd-macro <RET>
9. myfullstop <RET>

This gives:

#+begin_src elisp
 (fset 'myfullstop
   (kmacro-lambda-form [?\C-x ?8 return ?F ?U ?L ?L ?W ?I ?D ?T ?H ?  ?F
   ?U ?L ?L ?  ?S ?T ?O ?P return] 0 "%d"))
#+end_src

An eval (C-j with point at end) of the above expression gives the error:

----- Begin --------

Debugger entered--Lisp error: (wrong-number-of-arguments (1 . 1) 3)
  kmacro-lambda-form([24 56 return 70 85 76 76 87 73 68 84 72 32 70 85 76 76 32 83 84 79 80 return] 0 "%d")
  (fset 'myfullstop (kmacro-lambda-form [24 56 return 70 85 76 76 87 73 68 84 72 32 70 85 76 76 32 83 84 79 80 return] 0 "%d"))
  (progn (fset 'myfullstop (kmacro-lambda-form [24 56 return 70 85 76 76 87 73 68 84 72 32 70 85 76 76 32 83 84 79 80 return] 0 "%d")))
  eval((progn (fset 'myfullstop (kmacro-lambda-form [24 56 return 70 85 76 76 87 73 68 84 72 32 70 85 76 76 32 83 84 79 80 return] 0 "%d"))) t)
  elisp--eval-last-sexp(t)
  eval-last-sexp(t)
  eval-print-last-sexp(nil)
  funcall-interactively(eval-print-last-sexp nil)
  call-interactively(eval-print-last-sexp nil nil)
  command-execute(eval-print-last-sexp)

----- End ----------

An error does not occur with emacs-27, which evaluates successfully with
the output:

#+begin_src elisp
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item '([24 56 return 70 85 76 76 87 73 68 84 72 ...] 0 "%d") arg))
#+end_src


Best wishes,

Colin Baxter.

Re: kbd macro fails evaluation

[Stefan Monnier]

Colin Baxter [2021-05-19 08:22:26] wrote:

> With emacs-28
>
> 1. emacs -Q
> 2. <f3> <RET>
> 3. C-x 8 <RET> FULLWIDTH FULL STOP <RET>
> 4. <f4> <RET>
> 5. C-x C-k n <RET>
> 6. myfullstop <RET>
> 7. Change to scratch buffer if necessary.
> 8. M-x insert-kbd-macro <RET>
> 9. myfullstop <RET>
>
> This gives:
>
> #+begin_src elisp
>  (fset 'myfullstop
>    (kmacro-lambda-form [?\C-x ?8 return ?F ?U ?L ?L ?W ?I ?D ?T ?H ?  ?F
>    ?U ?L ?L ?  ?S ?T ?O ?P return] 0 "%d"))
> #+end_src
>
> An eval (C-j with point at end) of the above expression gives the error:

Oh, sorry I didn't see that those `0 "%d"` arg could occur so
I mistakenly removed them.
Could you `M-x report-emacs-bug` so I have a bug number to point to in the commit?


        Stefan

Re: kbd macro fails evaluation

[Colin Baxter]

>>>>> Stefan Monnier <monnier@iro.umontreal.ca> writes:

    > Colin Baxter [2021-05-19 08:22:26] wrote:
    >> With emacs-28
    >> 
    >> 1. emacs -Q 2. <f3> <RET> 3. C-x 8 <RET> FULLWIDTH FULL STOP
    >> <RET> 4. <f4> <RET> 5. C-x C-k n <RET> 6. myfullstop <RET>
    >> 7. Change to scratch buffer if necessary.  8. M-x
    >> insert-kbd-macro <RET> 9. myfullstop <RET>
    >> 
    >> This gives:
    >> 
    >> #+begin_src elisp (fset 'myfullstop (kmacro-lambda-form [?\C-x ?8
    >> return ?F ?U ?L ?L ?W ?I ?D ?T ?H ?  ?F ?U ?L ?L ?  ?S ?T ?O ?P
    >> return] 0 "%d")) #+end_src
    >> 
    >> An eval (C-j with point at end) of the above expression gives the
    >> error:

    > Oh, sorry I didn't see that those `0 "%d"` arg could occur so I
    > mistakenly removed them.  Could you `M-x report-emacs-bug` so I
    > have a bug number to point to in the commit?

Done.