bug#66022: 30.0.50; kmacro overwriting global keybindings

[Gerd Möllmann]

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

>> I don't remember doing that, but I'll try to reproduce this somehow.  I
>> tried it just now with a simple recipe but that didn't trigger the
>> checks in my init.el.  Have to read the code that does that reloading, I
>> guess.
>
> grep 'Fload (' src/*.c
>
> should get you started.

Caught the sucker :-).  I think your intuition was right.

This is Emacs.app, with my init.el.  I simply did a C-c, which-key
kicked in, calls documentation, and here we are...

Debugger entered: nil
  (progn (debug))
  (if (and (vectorp key) (eq (aref key 0) 'f2)) (progn (debug)))
  (let ((key (car (cdr args)))) (if (and (vectorp key) (eq (aref key 0) 'f2)) 
(progn (debug))))
  (progn (let ((key (car (cdr args)))) (if (and (vectorp key) (eq (aref key 0) 
'f2)) (progn (debug)))))
  (if (eq (car args) global-map) (progn (let ((key (car (cdr args)))) (if (and 
(vectorp key) (eq (aref key 0) 'f2)) (progn (debug))))))
  my-watch-f2((keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 
0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
#^^[3 128 self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command switch-to-buffer self-insert-command self-insert-command 
self-insert-command self-insert-command ...] self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
(C-drag-mouse-1 . ignore) (s-down . end-of-buffer) (s-up . beginning-of-buffer) 
(C-tab . other-window) (33554458 . undo-redo) (67108899 . embark-act) 
(S-mouse-3 . kmacro-end-call-mouse) (C-mouse-5 . mouse-wheel-text-scale) 
(C-mouse-4 . mouse-wheel-text-scale) (C-wheel-down . mouse-wheel-text-scale) 
(C-wheel-up . mouse-wheel-text-scale) (C-M-mouse-5 . 
mouse-wheel-global-text-scale) (C-M-mouse-4 . mouse-wheel-global-text-scale) 
(C-M-wheel-down . mouse-wheel-global-text-scale) (C-M-wheel-up . 
mouse-wheel-global-text-scale) (M-mouse-7 . mwheel-scroll) (M-mouse-6 . 
mwheel-scroll) (M-mouse-5 . mwheel-scroll) (M-mouse-4 . mwheel-scroll) 
(M-wheel-right . mwheel-scroll) (M-wheel-left . mwheel-scroll) (M-wheel-down . 
mwheel-scroll) (M-wheel-up . mwheel-scroll) (S-mouse-7 . mwheel-scroll) 
(S-mouse-6 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (S-mouse-4 . 
mwheel-scroll) (S-wheel-right . mwheel-scroll) (S-wheel-left . mwheel-scroll) 
(S-wheel-down . mwheel-scroll) (S-wheel-up . mwheel-scroll) (mouse-7 . 
mwheel-scroll) (mouse-6 . mwheel-scroll) (mouse-5 . mwheel-scroll) (mouse-4 . 
mwheel-scroll) (wheel-right . mwheel-scroll) ...) [f2] 2C-command)
  apply(my-watch-f2 ((keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 
0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
#^^[3 128 self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command switch-to-buffer self-insert-command self-insert-command 
self-insert-command self-insert-command ...] self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
(C-drag-mouse-1 . ignore) (s-down . end-of-buffer) (s-up . beginning-of-buffer) 
(C-tab . other-window) (33554458 . undo-redo) (67108899 . embark-act) 
(S-mouse-3 . kmacro-end-call-mouse) (C-mouse-5 . mouse-wheel-text-scale) 
(C-mouse-4 . mouse-wheel-text-scale) (C-wheel-down . mouse-wheel-text-scale) 
(C-wheel-up . mouse-wheel-text-scale) (C-M-mouse-5 . 
mouse-wheel-global-text-scale) (C-M-mouse-4 . mouse-wheel-global-text-scale) 
(C-M-wheel-down . mouse-wheel-global-text-scale) (C-M-wheel-up . 
mouse-wheel-global-text-scale) (M-mouse-7 . mwheel-scroll) (M-mouse-6 . 
mwheel-scroll) (M-mouse-5 . mwheel-scroll) (M-mouse-4 . mwheel-scroll) 
(M-wheel-right . mwheel-scroll) (M-wheel-left . mwheel-scroll) (M-wheel-down . 
mwheel-scroll) (M-wheel-up . mwheel-scroll) (S-mouse-7 . mwheel-scroll) 
(S-mouse-6 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (S-mouse-4 . 
mwheel-scroll) (S-wheel-right . mwheel-scroll) (S-wheel-left . mwheel-scroll) 
(S-wheel-down . mwheel-scroll) (S-wheel-up . mwheel-scroll) (mouse-7 . 
mwheel-scroll) (mouse-6 . mwheel-scroll) (mouse-5 . mwheel-scroll) (mouse-4 . 
mwheel-scroll) (wheel-right . mwheel-scroll) ...) [f2] 2C-command))
  define-key((keymap #^[nil nil keymap 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 
0 
#^^[3 0 set-mark-command move-beginning-of-line backward-char 
mode-specific-command-prefix delete-char move-end-of-line forward-char 
keyboard-quit help-command indent-for-tab-command 
electric-newline-and-maybe-indent kill-line recenter-top-bottom newline 
next-line open-line previous-line quoted-insert isearch-backward 
isearch-forward transpose-chars universal-argument scroll-up-command 
kill-region Control-X-prefix yank undo ESC-prefix toggle-input-method 
abort-recursive-edit nil undo self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
#^^[3 128 self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command switch-to-buffer self-insert-command self-insert-command 
self-insert-command self-insert-command ...] self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command] self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command self-insert-command 
self-insert-command self-insert-command self-insert-command ...] 
(C-drag-mouse-1 . ignore) (s-down . end-of-buffer) (s-up . beginning-of-buffer) 
(C-tab . other-window) (33554458 . undo-redo) (67108899 . embark-act) 
(S-mouse-3 . kmacro-end-call-mouse) (C-mouse-5 . mouse-wheel-text-scale) 
(C-mouse-4 . mouse-wheel-text-scale) (C-wheel-down . mouse-wheel-text-scale) 
(C-wheel-up . mouse-wheel-text-scale) (C-M-mouse-5 . 
mouse-wheel-global-text-scale) (C-M-mouse-4 . mouse-wheel-global-text-scale) 
(C-M-wheel-down . mouse-wheel-global-text-scale) (C-M-wheel-up . 
mouse-wheel-global-text-scale) (M-mouse-7 . mwheel-scroll) (M-mouse-6 . 
mwheel-scroll) (M-mouse-5 . mwheel-scroll) (M-mouse-4 . mwheel-scroll) 
(M-wheel-right . mwheel-scroll) (M-wheel-left . mwheel-scroll) (M-wheel-down . 
mwheel-scroll) (M-wheel-up . mwheel-scroll) (S-mouse-7 . mwheel-scroll) 
(S-mouse-6 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (S-mouse-4 . 
mwheel-scroll) (S-wheel-right . mwheel-scroll) (S-wheel-left . mwheel-scroll) 
(S-wheel-down . mwheel-scroll) (S-wheel-up . mwheel-scroll) (mouse-7 . 
mwheel-scroll) (mouse-6 . mwheel-scroll) (mouse-5 . mwheel-scroll) (mouse-4 . 
mwheel-scroll) (wheel-right . mwheel-scroll) ...) [f2] 2C-command)
  global-set-key([f2] 2C-command)
  
byte-code("\300\301\302\"\210\303\304\305\306\307\310%\210\311\312\304\"\210\311\313\304\"\207"
 [register-definition-prefixes "tv-util" ("tai-viet-") autoload 2C-command 
"two-column" nil t keymap global-set-key "\0306" [f2]] 6)
  documentation(duplicate-dwim)
  which-key--propertize-description("duplicate-dwim" nil nil nil 
"duplicate-dwim")
  which-key--format-and-replace((("C-c #" . "embark-act") ("C-c &" . "prefix") 
("C-c d" . "duplicate-dwim") ("C-c g" . "my-grab-bag") ("C-c k" . "lambda") 
("C-c m" . "magit-file-dispatch") ("C-c o" . "mode-line-other-buffer") ("C-c v" 
. "prefix") ("C-c C-b" . "elisp-byte-compile-buffer") ("C-c C-e" . 
"elisp-eval-region-or-buffer") ("C-c C-f" . "elisp-byte-compile-file") ("C-c 
C-k" . "lambda") ("C-c C-o" . "mode-line-other-buffer") ("C-c <tab>" . 
"company-complete")) nil)
  which-key--get-bindings([3] nil nil)
  which-key--create-buffer-and-show([3])
  which-key--update()
  apply(which-key--update nil)
  timer-event-handler([t 0 1 0 t which-key--update nil idle 0 nil])