From: Mark Oteiza <mvoteiza@udel.edu>
Date: Tue, 12 Sep 2017 01:23:38 +0000 (-0400)
Subject: ; Fix previous commit
X-Git-Tag: emacs-26.0.90~184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6474b4808363dbddeffef8d73ee3be7b3858fa3;p=emacs.git

; Fix previous commit

The printer otherwise includes the 0x prefix.
* lisp/emacs-lisp/cl-print.el: Add 0x to format.
---

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.")
     (let ((button-start (and cl-print-compiled-button
                              (bufferp stream)
                              (with-current-buffer stream (point)))))
-      (princ (format "#<bytecode %x>" (sxhash object)) stream)
+      (princ (format "#<bytecode 0x%x>" (sxhash object)) stream)
       (when (eq cl-print-compiled 'static)
         (princ " " stream)
         (cl-print-object (aref object 2) stream))