Re: master ae9bfaa: Simplify condition in kbd

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Date: Sun, 17 Oct 2021 09:03:18 +0200
> Cc: Stefan Kangas <stefan@marxist.se>
> 
> On Okt 16 2021, Stefan Kangas wrote:
> 
> > branch: master
> > commit ae9bfaa891c4f3cacb118aef6e35432d5fbeb88d
> > Author: Stefan Kangas <stefan@marxist.se>
> > Commit: Stefan Kangas <stefan@marxist.se>
> >
> >     Simplify condition in kbd
> 
> That's too much simplification.
> 
> Loading /home/andreas/src/emacs/emacs/lisp/emacs-lisp/tabulated-list.el 
> (source)...
> Wrong type argument: number-or-marker-p, M-left
> make[2]: *** [Makefile:858: bootstrap-emacs.pdmp] Error 255
> make[2]: Leaving directory '/home/andreas/src/emacs/test/src'
> make[1]: *** [Makefile:450: src] Error 2
> make[1]: Leaving directory '/home/andreas/src/emacs/test'
> make: *** [Makefile:1148: bootstrap] Error 2

Indeed.  And the test suite in test/lisp/subr-tests.el now also fails.

Basically,

  (kbd "M-<left>") => error

Here's the backtrace:

  Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p M-left)
    #f(compiled-function (ch) #<bytecode 0xcfc0ba503130cc2>)(M-left)
    mapcar(#f(compiled-function (ch) #<bytecode 0xcfc0ba503130cc2>) (M-left))
    kbd("M-<left>")
    (progn (kbd "M-<left>"))
    eval((progn (kbd "M-<left>")) 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)