* subr.el: Provide hashtable-print-readable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b0dab0028cbead25171f9349a04181d6db0af56..b95de0d804b40874edae6cdf6261b8d19d003e33 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-08-09  Chong Yidong  <cyd@stupidchicken.com>
 
+       * 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 37411bcb8adbfdfc688d7fe0fb9bb796815c6692..72c781ad49034796b337f3e09129f7b44cb21f08 100644 (file)
--- 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)))
 
+\f
+;;; 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