Commit 370e04fb authored by Mark Oteiza's avatar Mark Oteiza

Add cl-print method for hash tables

* lisp/emacs-lisp/cl-print.el (cl-print-object): New method.
parent 8130186c
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment