unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* (void-function subr-native-elisp-p)
@ 2021-05-01 20:03 Jean Louis
  2021-05-01 20:22 ` Andrea Corallo via Emacs development discussions.
  0 siblings, 1 reply; 7+ messages in thread
From: Jean Louis @ 2021-05-01 20:03 UTC (permalink / raw)
  To: Emacs Developers

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)



^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  2021-05-01 20:03 (void-function subr-native-elisp-p) Jean Louis
@ 2021-05-01 20:22 ` Andrea Corallo via Emacs development discussions.
  2021-05-01 20:34   ` Jean Louis
  0 siblings, 1 reply; 7+ messages in thread
From: Andrea Corallo via Emacs development discussions. @ 2021-05-01 20:22 UTC (permalink / raw)
  To: Jean Louis; +Cc: Emacs Developers

Jean Louis <bugs@gnu.support> writes:

> This is what I get on master when I press:
>
> C-h k SPC

I suspect you have some dirty state in your build.  Please try a build
from a clean state and if the problem persists report a bug with all the
details.

Regards

  Andrea



^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  2021-05-01 20:22 ` 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
  0 siblings, 2 replies; 7+ messages in thread
From: Jean Louis @ 2021-05-01 20:34 UTC (permalink / raw)
  To: Andrea Corallo; +Cc: Emacs Developers

* Andrea Corallo via "Emacs development discussions. <emacs-devel@gnu.org> [2021-05-01 23:23]:
> Jean Louis <bugs@gnu.support> writes:
> 
> > This is what I get on master when I press:
> >
> > C-h k SPC
> 
> I suspect you have some dirty state in your build.  Please try a build
> from a clean state and if the problem persists report a bug with all the
> details.

All I did so far was git pull without changes.

I did make clean before.

Because there are 2 errors, I cannot compile the newest, I back to
commit: a8aa217bff255aa92eae5207c10df8877b0d137a that I can work with
Emacs. 


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

Sign an open letter in support of Richard M. Stallman
https://stallmansupport.org/
https://rms-support-letter.github.io/




^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  2021-05-01 20:34   ` Jean Louis
@ 2021-05-02  6:43     ` Lars Ingebrigtsen
  2021-05-02  6:51     ` Eli Zaretskii
  1 sibling, 0 replies; 7+ messages in thread
From: Lars Ingebrigtsen @ 2021-05-02  6:43 UTC (permalink / raw)
  To: Andrea Corallo; +Cc: Emacs Developers

Jean Louis <bugs@gnu.support> writes:

> I did make clean before.

Try "make extraclean" or "make bootstrap".  

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no



^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  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
  1 sibling, 1 reply; 7+ messages in thread
From: Eli Zaretskii @ 2021-05-02  6:51 UTC (permalink / raw)
  To: Jean Louis; +Cc: emacs-devel, akrl

> Date: Sat, 1 May 2021 23:34:34 +0300
> From: Jean Louis <bugs@gnu.support>
> Cc: Emacs Developers <emacs-devel@gnu.org>
> 
> > > This is what I get on master when I press:
> > >
> > > C-h k SPC
> > 
> > I suspect you have some dirty state in your build.  Please try a build
> > from a clean state and if the problem persists report a bug with all the
> > details.
> 
> All I did so far was git pull without changes.
> 
> I did make clean before.

"make clean" is not enough.  Try "make distclean" followed by "make
bootstrap".  If nothing helps, just delete your clone and clone the
repository anew.



^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  2021-05-02  6:51     ` Eli Zaretskii
@ 2021-05-03  8:41       ` Gregory Heytings
  2021-05-03 10:09         ` Jean Louis
  0 siblings, 1 reply; 7+ messages in thread
From: Gregory Heytings @ 2021-05-03  8:41 UTC (permalink / raw)
  To: Eli Zaretskii; +Cc: akrl, Jean Louis, emacs-devel


>>>> This is what I get on master when I press:
>>>>
>>>> C-h k SPC
>>>
>>> I suspect you have some dirty state in your build.  Please try a build 
>>> from a clean state and if the problem persists report a bug with all 
>>> the details.
>>
>> All I did so far was git pull without changes.
>>
>> I did make clean before.
>
> "make clean" is not enough.  Try "make distclean" followed by "make 
> bootstrap".  If nothing helps, just delete your clone and clone the 
> repository anew.
>

Unless you did something seriously wrong with the contents of the .git 
subdirectory, cloning the repository anew is not necessary.  "git clean 
-xfd" should put your repository in the exact same as that of a new clone.



^ permalink raw reply	[flat|nested] 7+ messages in thread

* Re: (void-function subr-native-elisp-p)
  2021-05-03  8:41       ` Gregory Heytings
@ 2021-05-03 10:09         ` Jean Louis
  0 siblings, 0 replies; 7+ messages in thread
From: Jean Louis @ 2021-05-03 10:09 UTC (permalink / raw)
  To: Gregory Heytings; +Cc: Eli Zaretskii, emacs-devel, akrl

Thanks, I have followed instructions and solved it with extra clean
and bootstrap, now I don't see errors.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

Sign an open letter in support of Richard M. Stallman
https://stallmansupport.org/
https://rms-support-letter.github.io/




^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2021-05-03 10:09 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-05-01 20:03 (void-function subr-native-elisp-p) Jean Louis
2021-05-01 20:22 ` 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

unofficial mirror of emacs-devel@gnu.org 

This inbox may be cloned and mirrored by anyone:

	git clone --mirror https://yhetil.org/emacs-devel/0 emacs-devel/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 emacs-devel emacs-devel/ https://yhetil.org/emacs-devel \
		emacs-devel@gnu.org
	public-inbox-index emacs-devel

Example config snippet for mirrors.
Newsgroups are available over NNTP:
	nntp://news.yhetil.org/yhetil.emacs.devel
	nntp://news.gmane.io/gmane.emacs.devel


code repositories for project(s) associated with this inbox:

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

AGPL code for this site: git clone http://ou63pmih66umazou.onion/public-inbox.git