[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 370e04f: Add cl-print method for hash tables
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master 370e04f: Add cl-print method for hash tables |
Date: |
Mon, 11 Sep 2017 22:21:46 -0400 (EDT) |
branch: master
commit 370e04fbb206c59c6a2251dc54f69c61887f60cc
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>
Add cl-print method for hash tables
* lisp/emacs-lisp/cl-print.el (cl-print-object): New method.
---
lisp/emacs-lisp/cl-print.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index fec5e86..eb50d75 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 370e04f: Add cl-print method for hash tables,
Mark Oteiza <=