[Emacs-diffs] master a661555: Include sxhash of object with printed bytecode

[Mark Oteiza]

branch: master
commit a66155555b6e37b7c5a4d3fd4604f9929288753a
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    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>".
---
 lisp/emacs-lisp/cl-print.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index e9ca041..cf9407c 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))