From a66155555b6e37b7c5a4d3fd4604f9929288753a Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Mon, 11 Sep 2017 16:06:06 -0400 Subject: [PATCH] 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 "#". --- 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 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 "#" stream) + (princ (format "#" (sxhash object)) stream) (when (eq cl-print-compiled 'static) (princ " " stream) (cl-print-object (aref object 2) stream)) -- 2.39.2