diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-07 20:35:40 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-07 20:35:40 -0500 |
| commit | 1a6597660a405fe78885476f8761cab79167b4e1 (patch) | |
| tree | 96e3781934da8fc921a8b8b4153832994febd5da /lisp/emacs-lisp/cl-print.el | |
| parent | a65236214d9202fb69a6ba5169d4ac1a4bcb0b0d (diff) | |
| download | emacs-1a6597660a405fe78885476f8761cab79167b4e1.tar.gz emacs-1a6597660a405fe78885476f8761cab79167b4e1.tar.bz2 emacs-1a6597660a405fe78885476f8761cab79167b4e1.zip | |
* lisp/emacs-lisp/cl-print.el (cl-print-object): Use #f(..) for functions.
Diffstat (limited to 'lisp/emacs-lisp/cl-print.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el index 7e886fba08a..b4a7be805a3 100644 --- a/lisp/emacs-lisp/cl-print.el +++ b/lisp/emacs-lisp/cl-print.el @@ -75,9 +75,10 @@ call other entry points instead, such as `cl-prin1'." (princ "]" stream)) (cl-defmethod cl-print-object ((object compiled-function) stream) - (princ "#<compiled-function " stream) + ;; We use "#f(...)" rather than "#<...>" so that pp.el gives better results. + (princ "#f(compiled-function " stream) (prin1 (help-function-arglist object 'preserve-names) stream) - (princ " #<bytecode> >" stream)) + (princ " #<bytecode>)" stream)) ;; This belongs in nadvice.el, of course, but some load-ordering issues make it ;; complicated: cl-generic uses macros from cl-macs and cl-macs uses advice-add @@ -87,7 +88,7 @@ call other entry points instead, such as `cl-prin1'." ((object compiled-function) stream) (if (not (advice--p object)) (cl-call-next-method) - (princ "#<advice-wrapper " stream) + (princ "#f(advice-wrapper " stream) (when (fboundp 'advice--where) (princ (advice--where object) stream) (princ " " stream)) @@ -98,7 +99,7 @@ call other entry points instead, such as `cl-prin1'." (when props (princ " " stream) (cl-print-object props stream))) - (princ ">" stream))) + (princ ")" stream))) (cl-defmethod cl-print-object ((object cl-structure-object) stream) (princ "#s(" stream) |