diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-11 16:06:06 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-11 16:06:06 -0400 |
| commit | a66155555b6e37b7c5a4d3fd4604f9929288753a (patch) | |
| tree | 7dd1800e5815f2d1b01ca15e515511c7d6f2143a /lisp/emacs-lisp | |
| parent | 4c57eda5cf03ed9c3beda4c3a62624e6f46ad84e (diff) | |
| download | emacs-a66155555b6e37b7c5a4d3fd4604f9929288753a.tar.gz emacs-a66155555b6e37b7c5a4d3fd4604f9929288753a.tar.bz2 emacs-a66155555b6e37b7c5a4d3fd4604f9929288753a.zip | |
Include sxhash of object with printed bytecode
This printing, while succint, is rather opaque. At least give an
immediate clue of whether different byte code printouts are for the
same or different byte code objects.
* lisp/emacs-lisp/cl-print.el (cl-print-object): Add object sxhash to
printed token "#<bytecode>".
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el index e9ca0412848..cf9407c8a76 100644 --- a/lisp/emacs-lisp/cl-print.el +++ b/lisp/emacs-lisp/cl-print.el @@ -131,7 +131,7 @@ into a button whose action shows the function's disassembly.") (let ((button-start (and cl-print-compiled-button (bufferp stream) (with-current-buffer stream (point))))) - (princ "#<bytecode>" stream) + (princ (format "#<bytecode %x>" (sxhash object)) stream) (when (eq cl-print-compiled 'static) (princ " " stream) (cl-print-object (aref object 2) stream)) |