From: Mark Oteiza <mvoteiza@udel.edu>
Date: Mon, 11 Sep 2017 20:06:06 +0000 (-0400)
Subject: Include sxhash of object with printed bytecode
X-Git-Tag: emacs-26.0.90~187
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a66155555b6e37b7c5a4d3fd4604f9929288753a;p=emacs.git

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>".
---

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))