unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Jean Louis <bugs@gnu.support>
To: Emacs Developers <emacs-devel@gnu.org>
Subject: (void-function subr-native-elisp-p)
Date: Sat, 01 May 2021 23:03:30 +0300	[thread overview]
Message-ID: <courier.00000000608DB428.00007D8F@stw1.rcdrun.com> (raw)

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 be
 g "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) (co
 ncat 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 fun
 ction")) ((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-com
 mand-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") (... "keym
 ap") (... "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 de
 f) (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)



             reply	other threads:[~2021-05-01 20:03 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-05-01 20:03 Jean Louis [this message]
2021-05-01 20:22 ` (void-function subr-native-elisp-p) Andrea Corallo via Emacs development discussions.
2021-05-01 20:34   ` Jean Louis
2021-05-02  6:43     ` Lars Ingebrigtsen
2021-05-02  6:51     ` Eli Zaretskii
2021-05-03  8:41       ` Gregory Heytings
2021-05-03 10:09         ` Jean Louis

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=courier.00000000608DB428.00007D8F@stw1.rcdrun.com \
    --to=bugs@gnu.support \
    --cc=emacs-devel@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).