Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

New cl-print-object method for subrs.

Browse source 
This method also prints the defining symbol, when present.

* lisp/emacs-lisp/cl-print.el (cl-print-object/subr): New
method.
This commit is contained in:
Alan Mackenzie 2023-10-28 09:14:54 +00:00
parent 7d92e7ac09
commit c0d898596e
1 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/cl-print.el
View file

@ -193,11 +193,10 @@ into a button whose action shows the function's disassembly.")
(cl-defmethod cl-print-object ((object compiled-function) stream)
(unless stream (setq stream standard-output))
(let ((defsym
(cond
((subrp object)
(subr-native-defining-symbol object))
((> (length object) 5)
(aref object 5)))))
;; 2023-10-26: Currently `compiled-function' appears not to
;; include subrs.
(and (> (length object) 5)
(aref object 5))))
(when (and defsym (not (eq defsym t)) (symbolp defsym))
(princ "{" stream)
(;; cl-
@ -255,8 +254,17 @@ into a button whose action shows the function's disassembly.")
(with-current-buffer stream
(make-text-button button-start (point)
:type 'help-byte-code
'byte-code-function object)))))
(princ ")" stream)))
'byte-code-function object))))))
(princ ")" stream))
(cl-defmethod cl-print-object ((object subr) stream)
(unless stream (setq stream standard-output))
(let ((defsym (subr-native-defining-symbol object)))
(when (and defsym (not (eq defsym t)) (symbolp defsym))
(princ "{" stream)
(prin1 defsym stream)
(princ "} " stream)))
(prin1 object stream))
;; This belongs in oclosure.el, of course, but some load-ordering issues make it
;; complicated.