(live_float_p): Check that p is not past the `floats' array,

[gnu-emacs] / src / abbrev.c

diff --git a/src/abbrev.c b/src/abbrev.c
index ae675bb310ee5ebe4d26c8f25cff87d7a2a0a1c3..dabc03b2a556f915693caf7971b4f19c39a77543 100644 (file)
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -592,9 +592,9 @@ of the form (ABBREVNAME EXPANSION HOOK USECOUNT SYSTEMFLAG).
     }
   CHECK_VECTOR (table);
 
-  for (; !NILP (definitions); definitions = Fcdr (definitions))
+  for (; CONSP (definitions); definitions = XCDR (definitions))
     {
-      elt = Fcar (definitions);
+      elt = XCAR (definitions);
       name  = Fcar (elt);      elt = Fcdr (elt);
       exp   = Fcar (elt);      elt = Fcdr (elt);
       hook  = Fcar (elt);      elt = Fcdr (elt);