(void-function subr-native-elisp-p)

[Jean Louis]

This is what I get on master when I press:

C-h k SPC

Debugger entered--Lisp error: (void-function subr-native-elisp-p)
  (subr-native-elisp-p def)
  (cond ((or (stringp def) (vectorp def)) "a keyboard macro") ((and (symbolp 
function) (get function 'reader-construct)) "a reader construct") (aliased 
(format-message "an alias for `%s'" real-def)) ((subr-native-elisp-p def) 
(concat beg "native compiled Lisp function")) ((subrp def) (concat beg (if (eq 
'unevalled (cdr (subr-arity def))) "special form" "built-in function"))) 
((autoloadp def) (format "an autoloaded %s" (cond ((commandp def) "interactive 
Lisp function") ((eq (nth 4 def) 'keymap) "keymap") ((nth 4 def) "Lisp macro") 
(t "Lisp function")))) ((or (eq (car-safe def) 'macro) (macrop function)) 
(concat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled 
Lisp function")) ((module-function-p def) (concat beg "module function")) ((eq 
(car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 
'closure) (concat beg "Lisp closure")) ((keymapp def) (let ((is-full nil) (elts 
(cdr-safe def))) (while elts (if (char-table-p (car-safe elts)) (setq is-full t 
elts nil)) (setq elts (cdr-safe elts))) (concat beg (if is-full "keymap" 
"sparse keymap")))) (t ""))
  (princ (cond ((or (stringp def) (vectorp def)) "a keyboard macro") ((and 
(symbolp function) (get function 'reader-construct)) "a reader construct") 
(aliased (format-message "an alias for `%s'" real-def)) ((subr-native-elisp-p 
def) (concat beg "native compiled Lisp function")) ((subrp def) (concat beg (if 
(eq 'unevalled (cdr (subr-arity def))) "special form" "built-in function"))) 
((autoloadp def) (format "an autoloaded %s" (cond ((commandp def) "interactive 
Lisp function") ((eq (nth 4 def) 'keymap) "keymap") ((nth 4 def) "Lisp macro") 
(t "Lisp function")))) ((or (eq (car-safe def) 'macro) (macrop function)) 
(concat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled 
Lisp function")) ((module-function-p def) (concat beg "module function")) ((eq 
(car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 
'closure) (concat beg "Lisp closure")) ((keymapp def) (let ((is-full nil) (elts 
(cdr-safe def))) (while elts (if (char-table-p (car-safe elts)) (setq is-full t 
elts nil)) (setq elts (cdr-safe elts))) (concat beg (if is-full "keymap" 
"sparse keymap")))) (t "")))
  (progn (princ (cond ((or (stringp def) (vectorp def)) "a keyboard macro") 
((and (symbolp function) (get function 'reader-construct)) "a reader 
construct") (aliased (format-message "an alias for `%s'" real-def)) 
((subr-native-elisp-p def) (concat beg "native compiled Lisp function")) 
((subrp def) (concat beg (if (eq 'unevalled (cdr ...)) "special form" "built-in 
function"))) ((autoloadp def) (format "an autoloaded %s" (cond ((commandp def) 
"interactive Lisp function") ((eq ... ...) "keymap") ((nth 4 def) "Lisp macro") 
(t "Lisp function")))) ((or (eq (car-safe def) 'macro) (macrop function)) 
(concat beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled 
Lisp function")) ((module-function-p def) (concat beg "module function")) ((eq 
(car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 
'closure) (concat beg "Lisp closure")) ((keymapp def) (let ((is-full nil) (elts 
(cdr-safe def))) (while elts (if (char-table-p ...) (setq is-full t elts nil)) 
(setq elts (cdr-safe elts))) (concat beg (if is-full "keymap" "sparse 
keymap")))) (t ""))) (if (and aliased (not (fboundp real-def))) (princ 
",\nwhich is not defined.") (save-current-buffer (set-buffer standard-output) 
(save-excursion (let ((save-match-data-internal (match-data))) (unwind-protect 
(progn (if ... ...)) (set-match-data save-match-data-internal 'evaporate))))) 
(if file-name (progn (princ (format-message " in `%s'" (if (eq file-name ...) 
"C source code" (help-fns-short-filename file-name)))) (save-current-buffer 
(set-buffer standard-output) (save-excursion (re-search-backward 
(substitute-command-keys "`\\([^`']+\\)'") nil t) (help-xref-button 1 
'help-function-def function file-name))))) (princ ".")))
  (let* ((file-name (find-lisp-object-file-name function (if aliased 'defun 
def))) (beg (if (and (or (byte-code-function-p def) (keymapp def) (memq 
(car-safe def) '...)) (stringp file-name) (help-fns--autoloaded-p function 
file-name)) (concat "an autoloaded " (if (commandp def) "interactive ")) (if 
(commandp def) "an interactive " "a ")))) (progn (princ (cond ((or (stringp 
def) (vectorp def)) "a keyboard macro") ((and (symbolp function) (get function 
'reader-construct)) "a reader construct") (aliased (format-message "an alias 
for `%s'" real-def)) ((subr-native-elisp-p def) (concat beg "native compiled 
Lisp function")) ((subrp def) (concat beg (if (eq ... ...) "special form" 
"built-in function"))) ((autoloadp def) (format "an autoloaded %s" (cond (... 
"interactive Lisp function") (... "keymap") (... "Lisp macro") (t "Lisp 
function")))) ((or (eq (car-safe def) 'macro) (macrop function)) (concat beg 
"Lisp macro")) ((byte-code-function-p def) (concat beg "compiled Lisp 
function")) ((module-function-p def) (concat beg "module function")) ((eq 
(car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 
'closure) (concat beg "Lisp closure")) ((keymapp def) (let ((is-full nil) (elts 
...)) (while elts (if ... ...) (setq elts ...)) (concat beg (if is-full 
"keymap" "sparse keymap")))) (t ""))) (if (and aliased (not (fboundp 
real-def))) (princ ",\nwhich is not defined.") (save-current-buffer (set-buffer 
standard-output) (save-excursion (let ((save-match-data-internal ...)) 
(unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))) 
(if file-name (progn (princ (format-message " in `%s'" (if ... "C source code" 
...))) (save-current-buffer (set-buffer standard-output) (save-excursion 
(re-search-backward ... nil t) (help-xref-button 1 ... function file-name))))) 
(princ "."))))
  (let ((_real-function x33) (def x35) (aliased x37) (real-def x39)) (let* 
((file-name (find-lisp-object-file-name function (if aliased 'defun def))) (beg 
(if (and (or (byte-code-function-p def) (keymapp def) (memq ... ...)) (stringp 
file-name) (help-fns--autoloaded-p function file-name)) (concat "an autoloaded 
" (if (commandp def) "interactive ")) (if (commandp def) "an interactive " "a 
")))) (progn (princ (cond ((or (stringp def) (vectorp def)) "a keyboard macro") 
((and (symbolp function) (get function ...)) "a reader construct") (aliased 
(format-message "an alias for `%s'" real-def)) ((subr-native-elisp-p def) 
(concat beg "native compiled Lisp function")) ((subrp def) (concat beg (if ... 
"special form" "built-in function"))) ((autoloadp def) (format "an autoloaded 
%s" (cond ... ... ... ...))) ((or (eq ... ...) (macrop function)) (concat beg 
"Lisp macro")) ((byte-code-function-p def) (concat beg "compiled Lisp 
function")) ((module-function-p def) (concat beg "module function")) ((eq 
(car-safe def) 'lambda) (concat beg "Lisp function")) ((eq (car-safe def) 
'closure) (concat beg "Lisp closure")) ((keymapp def) (let (... ...) (while 
elts ... ...) (concat beg ...))) (t ""))) (if (and aliased (not (fboundp 
real-def))) (princ ",\nwhich is not defined.") (save-current-buffer (set-buffer 
standard-output) (save-excursion (let (...) (unwind-protect ... ...)))) (if 
file-name (progn (princ (format-message " in `%s'" ...)) (save-current-buffer 
(set-buffer standard-output) (save-excursion ... ...)))) (princ ".")))))
  (progn (ignore (null x40)) (let ((_real-function x33) (def x35) (aliased x37) 
(real-def x39)) (let* ((file-name (find-lisp-object-file-name function (if 
aliased 'defun def))) (beg (if (and (or ... ... ...) (stringp file-name) 
(help-fns--autoloaded-p function file-name)) (concat "an autoloaded " (if ... 
"interactive ")) (if (commandp def) "an interactive " "a ")))) (progn (princ 
(cond ((or ... ...) "a keyboard macro") ((and ... ...) "a reader construct") 
(aliased (format-message "an alias for `%s'" real-def)) ((subr-native-elisp-p 
def) (concat beg "native compiled Lisp function")) ((subrp def) (concat beg 
...)) ((autoloadp def) (format "an autoloaded %s" ...)) ((or ... ...) (concat 
beg "Lisp macro")) ((byte-code-function-p def) (concat beg "compiled Lisp 
function")) ((module-function-p def) (concat beg "module function")) ((eq ... 
...) (concat beg "Lisp function")) ((eq ... ...) (concat beg "Lisp closure")) 
((keymapp def) (let ... ... ...)) (t ""))) (if (and aliased (not (fboundp 
real-def))) (princ ",\nwhich is not defined.") (save-current-buffer (set-buffer 
standard-output) (save-excursion (let ... ...))) (if file-name (progn (princ 
...) (save-current-buffer ... ...))) (princ "."))))))
  (let* ((x39 (car-safe x38)) (x40 (cdr-safe x38))) (progn (ignore (null x40)) 
(let ((_real-function x33) (def x35) (aliased x37) (real-def x39)) (let* 
((file-name (find-lisp-object-file-name function (if aliased ... def))) (beg 
(if (and ... ... ...) (concat "an autoloaded " ...) (if ... "an interactive " 
"a ")))) (progn (princ (cond (... "a keyboard macro") (... "a reader 
construct") (aliased ...) (... ...) (... ...) (... ...) (... ...) (... ...) 
(... ...) (... ...) (... ...) (... ...) (t ""))) (if (and aliased (not ...)) 
(princ ",\nwhich is not defined.") (save-current-buffer (set-buffer 
standard-output) (save-excursion ...)) (if file-name (progn ... ...)) (princ 
".")))))))
  (progn (ignore (consp x38)) (let* ((x39 (car-safe x38)) (x40 (cdr-safe x38))) 
(progn (ignore (null x40)) (let ((_real-function x33) (def x35) (aliased x37) 
(real-def x39)) (let* ((file-name (find-lisp-object-file-name function ...)) 
(beg (if ... ... ...))) (progn (princ (cond ... ... ... ... ... ... ... ... ... 
... ... ... ...)) (if (and aliased ...) (princ ",\nwhich is not defined.") 
(save-current-buffer ... ...) (if file-name ...) (princ "."))))))))
  (let* ((x37 (car-safe x36)) (x38 (cdr-safe x36))) (progn (ignore (consp x38)) 
(let* ((x39 (car-safe x38)) (x40 (cdr-safe x38))) (progn (ignore (null x40)) 
(let ((_real-function x33) (def x35) (aliased x37) (real-def x39)) (let* 
((file-name ...) (beg ...)) (progn (princ ...) (if ... ... ... ... ...))))))))
  (progn (ignore (consp x36)) (let* ((x37 (car-safe x36)) (x38 (cdr-safe x36))) 
(progn (ignore (consp x38)) (let* ((x39 (car-safe x38)) (x40 (cdr-safe x38))) 
(progn (ignore (null x40)) (let ((_real-function x33) (def x35) (aliased x37) 
(real-def x39)) (let* (... ...) (progn ... ...))))))))
  (let* ((x35 (car-safe x34)) (x36 (cdr-safe x34))) (progn (ignore (consp x36)) 
(let* ((x37 (car-safe x36)) (x38 (cdr-safe x36))) (progn (ignore (consp x38)) 
(let* ((x39 (car-safe x38)) (x40 (cdr-safe x38))) (progn (ignore (null x40)) 
(let (... ... ... ...) (let* ... ...))))))))
  (progn (ignore (consp x34)) (let* ((x35 (car-safe x34)) (x36 (cdr-safe x34))) 
(progn (ignore (consp x36)) (let* ((x37 (car-safe x36)) (x38 (cdr-safe x36))) 
(progn (ignore (consp x38)) (let* ((x39 ...) (x40 ...)) (progn (ignore ...) 
(let ... ...))))))))
  (let* ((x33 (car-safe val)) (x34 (cdr-safe val))) (progn (ignore (consp x34)) 
(let* ((x35 (car-safe x34)) (x36 (cdr-safe x34))) (progn (ignore (consp x36)) 
(let* ((x37 (car-safe x36)) (x38 (cdr-safe x36))) (progn (ignore (consp x38)) 
(let* (... ...) (progn ... ...))))))))
  (progn (ignore (consp val)) (let* ((x33 (car-safe val)) (x34 (cdr-safe val))) 
(progn (ignore (consp x34)) (let* ((x35 (car-safe x34)) (x36 (cdr-safe x34))) 
(progn (ignore (consp x36)) (let* ((x37 ...) (x38 ...)) (progn (ignore ...) 
(let* ... ...))))))))
  (let* ((val (help-fns--analyze-function function))) (progn (ignore (consp 
val)) (let* ((x33 (car-safe val)) (x34 (cdr-safe val))) (progn (ignore (consp 
x34)) (let* ((x35 (car-safe x34)) (x36 (cdr-safe x34))) (progn (ignore (consp 
x36)) (let* (... ...) (progn ... ...))))))))
  help-fns-function-description-header(self-insert-command)
  (let ((pt1 (save-current-buffer (set-buffer (help-buffer)) (point)))) 
(help-fns-function-description-header function) (save-current-buffer 
(set-buffer (help-buffer)) (fill-region-as-paragraph (save-excursion (goto-char 
pt1) (forward-line 0) (point)) (point))))
  describe-function-1(self-insert-command)
  describe-key(((" " . [32])))
  funcall-interactively(describe-key ((" " . [32])))
  call-interactively(describe-key nil nil)
  command-execute(describe-key)