diff options
| author | Mark Oteiza | 2017-09-11 21:23:38 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2017-09-11 21:23:38 -0400 |
| commit | f6474b4808363dbddeffef8d73ee3be7b3858fa3 (patch) | |
| tree | b8d24fa90967fa399fd983319915415bd9b68652 | |
| parent | 23252d4ccf0773100ccd0a08966745dbb11a3899 (diff) | |
| download | emacs-f6474b4808363dbddeffef8d73ee3be7b3858fa3.tar.gz emacs-f6474b4808363dbddeffef8d73ee3be7b3858fa3.zip | |
; Fix previous commit
The printer otherwise includes the 0x prefix.
* lisp/emacs-lisp/cl-print.el: Add 0x to format.
| -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 cf9407c8a76..6a292d24776 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.") | |||
| 131 | (let ((button-start (and cl-print-compiled-button | 131 | (let ((button-start (and cl-print-compiled-button |
| 132 | (bufferp stream) | 132 | (bufferp stream) |
| 133 | (with-current-buffer stream (point))))) | 133 | (with-current-buffer stream (point))))) |
| 134 | (princ (format "#<bytecode %x>" (sxhash object)) stream) | 134 | (princ (format "#<bytecode 0x%x>" (sxhash object)) stream) |
| 135 | (when (eq cl-print-compiled 'static) | 135 | (when (eq cl-print-compiled 'static) |
| 136 | (princ " " stream) | 136 | (princ " " stream) |
| 137 | (cl-print-object (aref object 2) stream)) | 137 | (cl-print-object (aref object 2) stream)) |