From 18d433a76155f6079e14d27d5cd7edbc206cacef Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 9 Aug 2009 02:57:45 +0000 Subject: [PATCH] * subr.el: Provide hashtable-print-readable. --- lisp/ChangeLog | 2 ++ lisp/subr.el | 9 +++++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b0dab0028c..b95de0d804b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-08-09 Chong Yidong + * subr.el: Provide hashtable-print-readable. + * progmodes/hideshow.el (hs-special-modes-alist): Don't use hs-c-like-adjust-block-beginning. (hs-hide-block-at-point): Stop hiding at the beginning of diff --git a/lisp/subr.el b/lisp/subr.el index 37411bcb8ad..72c781ad490 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3647,5 +3647,14 @@ is greater than \"1pre\" which is greater than \"1beta\" which is greater than \"1alpha\"." (version-list-= (version-to-list v1) (version-to-list v2))) + +;;; Misc. + +;; The following statement ought to be in print.c, but `provide' can't +;; be used there. +(when (hash-table-p (car (read-from-string + (prin1-to-string (make-hash-table))))) + (provide 'hashtable-print-readable)) + ;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc ;;; subr.el ends here -- 2.39.5