# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1249786665 0
# Node ID eec5a3966960025edbaf53481a50f93471e4a4f4
# Parent  0cec7dac5f5073e65cf5b3fb0b4f145b6aded0f4
* subr.el: Provide hashtable-print-readable.

diff -r 0cec7dac5f50 -r eec5a3966960 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Aug 09 02:43:50 2009 +0000
+++ b/lisp/ChangeLog	Sun Aug 09 02:57:45 2009 +0000
@@ -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 -r 0cec7dac5f50 -r eec5a3966960 lisp/subr.el
--- a/lisp/subr.el	Sun Aug 09 02:43:50 2009 +0000
+++ b/lisp/subr.el	Sun Aug 09 02:57:45 2009 +0000
@@ -3647,5 +3647,14 @@
 \"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