[Emacs-diffs] emacs/src ChangeLog print.c

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/30 21:08:27

Modified files:
        src            : ChangeLog print.c 

Log message:
        (print_preprocess): Preprocess the key_and_value table of
        hashtables, even tho they're "hidden" (bug#5082).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7902&r2=1.7903
http://cvs.savannah.gnu.org/viewcvs/emacs/src/print.c?cvsroot=emacs&r1=1.265&r2=1.266

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7902
retrieving revision 1.7903
diff -u -b -r1.7902 -r1.7903
--- ChangeLog   29 Nov 2009 09:48:50 -0000      1.7902
+++ ChangeLog   30 Nov 2009 21:08:25 -0000      1.7903
@@ -1,3 +1,8 @@
+2009-11-30  Stefan Monnier  <address@hidden>
+
+       * print.c (print_preprocess): Preprocess the key_and_value table of
+       hashtables, even tho they're "hidden" (bug#5082).
+
 2009-11-29  Jan Djärv  <address@hidden>
 
        * frame.c (frame_make_pointer_invisible)

Index: print.c
===================================================================
RCS file: /sources/emacs/emacs/src/print.c,v
retrieving revision 1.265
retrieving revision 1.266
diff -u -b -r1.265 -r1.266
--- print.c     21 Nov 2009 11:52:28 -0000      1.265
+++ print.c     30 Nov 2009 21:08:27 -0000      1.266
@@ -1416,6 +1416,13 @@
            size &= PSEUDOVECTOR_SIZE_MASK;
          for (i = 0; i < size; i++)
            print_preprocess (XVECTOR (obj)->contents[i]);
+         if (HASH_TABLE_P (obj))
+           { /* For hash tables, the key_and_value slot is past
+               `size' because it needs to be marked specially in case
+               the table is weak.  */
+             struct Lisp_Hash_Table *h = XHASH_TABLE (obj);
+             print_preprocess (h->key_and_value);
+           }
          break;
 
        default: