bug#58148: 29.0.50; Wrong number of arguments in keymap-set--anon-cmacro

[Juri Linkov]

0. emacs -Q
1. Type in the *scratch*:

   (keymap-set g

2. Then 'completion-at-point' with 'M-C-i'.

Debugger entered--Lisp error: (wrong-number-of-arguments (4 . 4) 2)
  keymap-set--anon-cmacro((keymap-set elisp--witness--lisp) 
elisp--witness--lisp)
  apply(keymap-set--anon-cmacro (keymap-set elisp--witness--lisp) 
elisp--witness--lisp)
  macroexp--compiler-macro(keymap-set--anon-cmacro (keymap-set 
elisp--witness--lisp))
  #f(compiled-function (form func) #<bytecode 
-0x1997929cc4a97ca0>)(((keymap-set elisp--witness--lisp)) keymap-set)
  macroexp--expand-all((keymap-set elisp--witness--lisp))
  macroexpand-all((keymap-set elisp--witness--lisp))
  elisp--local-variables()
  #f(compiled-function (string) #<bytecode -0x5dd040ab2d900d4>)(#("g" 0 1 
(fontified t rear-nonsticky t)))
  #f(compiled-function (string pred action) #<bytecode 
-0x131cb872953b2efd>)(#("g" 0 1 (fontified t rear-nonsticky t)) nil nil)
  try-completion(#("g" 0 1 (fontified t rear-nonsticky t)) #f(compiled-function 
(string pred action) #<bytecode -0x131cb872953b2efd>) nil)
  #f(compiled-function (table) #<bytecode 
0x1635acab3bc82542>)(#f(compiled-function (string pred action) #<bytecode 
-0x131cb872953b2efd>))
  mapcar(#f(compiled-function (table) #<bytecode 0x1635acab3bc82542>) 
(#f(compiled-function (string pred action) #<bytecode -0x131cb872953b2efd>) 
#f(compiled-function (&rest args2) #<bytecode -0x12a9d92cb5a883a4>)))
  #f(compiled-function (string pred action) #<bytecode 
0x59c9db15e8e1ece>)(#("g" 0 1 (fontified t rear-nonsticky t)) nil nil)
  try-completion(#("g" 0 1 (fontified t rear-nonsticky t)) #f(compiled-function 
(string pred action) #<bytecode 0x59c9db15e8e1ece>) nil)
  completion-basic-try-completion(#("g" 0 1 (rear-nonsticky t fontified t)) 
#f(compiled-function (string pred action) #<bytecode 0x59c9db15e8e1ece>) nil 1)
  #f(compiled-function (style) #<bytecode 0x178271f9e5e4c041>)(basic)
  completion--some(#f(compiled-function (style) #<bytecode 0x178271f9e5e4c041>) 
(basic partial-completion emacs22))
  completion--nth-completion(1 #("g" 0 1 (rear-nonsticky t fontified t)) 
#f(compiled-function (string pred action) #<bytecode 0x59c9db15e8e1ece>) nil 1 
(metadata))
  completion-try-completion(#("g" 0 1 (rear-nonsticky t fontified t)) 
#f(compiled-function (string pred action) #<bytecode 0x59c9db15e8e1ece>) nil 1 
(metadata))
  completion--do-completion(#<marker at 158 in *scratch*> 159)
  completion--in-region-1(#<marker at 158 in *scratch*> 159)
  #f(compiled-function (start end collection predicate) #<bytecode 
-0xceba54d1e8420a4>)(#<marker at 158 in *scratch*> 159 #f(compiled-function 
(string pred action) #<bytecode 0x59c9db15e8e1ece>) nil)
  apply(#f(compiled-function (start end collection predicate) #<bytecode 
-0xceba54d1e8420a4>) (#<marker at 158 in *scratch*> 159 #f(compiled-function 
(string pred action) #<bytecode 0x59c9db15e8e1ece>) nil))
  #f(compiled-function (funs global args) #<bytecode -0xf63b519da3ae62>)(nil 
nil (#<marker at 158 in *scratch*> 159 #f(compiled-function (string pred 
action) #<bytecode 0x59c9db15e8e1ece>) nil))
  completion--in-region(#<marker at 158 in *scratch*> 159 #f(compiled-function 
(string pred action) #<bytecode 0x59c9db15e8e1ece>) nil)
  completion-in-region(#<marker at 158 in *scratch*> 159 #f(compiled-function 
(string pred action) #<bytecode 0x59c9db15e8e1ece>) nil)
  completion-at-point()
  funcall-interactively(completion-at-point)
  command-execute(completion-at-point)