[Emacs-diffs] emacs/lisp ChangeLog subr.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/08/09 02:57:49

Modified files:
        lisp           : ChangeLog subr.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15912&r2=1.15913
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.642&r2=1.643

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15912
retrieving revision 1.15913
diff -u -b -r1.15912 -r1.15913
--- ChangeLog   9 Aug 2009 02:43:50 -0000       1.15912
+++ ChangeLog   9 Aug 2009 02:57:45 -0000       1.15913
@@ -1,5 +1,7 @@
 2009-08-09  Chong Yidong  <address@hidden>
 
+       * 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

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.642
retrieving revision 1.643
diff -u -b -r1.642 -r1.643
--- subr.el     18 Jul 2009 21:05:47 -0000      1.642
+++ subr.el     9 Aug 2009 02:57:48 -0000       1.643
@@ -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