[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a661555: Include sxhash of object with printed byte
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master a661555: Include sxhash of object with printed bytecode |
Date: |
Mon, 11 Sep 2017 16:10:57 -0400 (EDT) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a661555: Include sxhash of object with printed bytecode,
Mark Oteiza <=