From: Mark Oteiza <mvoteiza@udel.edu>
Date: Tue, 12 Sep 2017 02:20:41 +0000 (-0400)
Subject: Add cl-print method for hash tables
X-Git-Tag: emacs-26.0.90~182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=370e04fbb206c59c6a2251dc54f69c61887f60cc;p=emacs.git

Add cl-print method for hash tables

* lisp/emacs-lisp/cl-print.el (cl-print-object): New method.
---

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index fec5e868d63..eb50d756879 100644
--- a/lisp/emacs-lisp/cl-print.el
+++ b/lisp/emacs-lisp/cl-print.el
@@ -78,6 +78,16 @@ call other entry points instead, such as `cl-prin1'."
     (cl-print-object (aref object i) stream))
   (princ "]" stream))
 
+(cl-defmethod cl-print-object ((object hash-table) stream)
+  (princ "#<hash-table " stream)
+  (princ (hash-table-test object) stream)
+  (princ " " stream)
+  (princ (hash-table-count object) stream)
+  (princ "/" stream)
+  (princ (hash-table-size object) stream)
+  (princ (format " 0x%x" (sxhash object)) stream)
+  (princ ">" stream))
+
 (define-button-type 'help-byte-code
   'follow-link t
   'action (lambda (button)