Mercurial > hg > xemacs-beta

diff src/hash.c @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents f955c73f5258
children c5d627a313b1
line wrap: on
line diff
--- a/src/hash.c	Mon Aug 13 10:25:39 2007 +0200
+++ b/src/hash.c	Mon Aug 13 10:26:29 2007 +0200
@@ -272,7 +272,9 @@
      been set and is thus all zeroes.  Qzero is "automatically"
      initialized at startup because its correct value is also all
      zeroes. */
-  if (!NILP (hash->elisp_table) && !ZEROP (hash->elisp_table))
+  if (!EQ (hash->elisp_table, Qnull_pointer) &&
+      !NILP (hash->elisp_table) &&
+      !ZEROP (hash->elisp_table))
     new_harray = (hentry *) elisp_hvector_malloc (sizeof (hentry) * new_hsize,
 						  hash->elisp_table);
   else
@@ -293,7 +295,9 @@
   }
 
 #ifdef emacs
-  if (!NILP (hash->elisp_table) && !ZEROP (hash->elisp_table))
+  if (!EQ (hash->elisp_table, Qnull_pointer) &&
+      !NILP (hash->elisp_table) &&
+      !ZEROP (hash->elisp_table))
     elisp_hvector_free (old_harray, hash->elisp_table);
   else
 #endif