From: Kim F. Storm <storm@cua.dk>
Date: Wed, 19 Jan 2005 00:08:30 +0000 (+0000)
Subject: (sweep_weak_table): Advance prev pointer when we keep a pair.
X-Git-Tag: ttn-vms-21-2-B4~2677
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d278cde036f9fa0f56b5a0b49baf498f13ebf332;p=emacs.git

(sweep_weak_table): Advance prev pointer when we keep a pair.
---

diff --git a/src/fns.c b/src/fns.c
index 3f92a0e0bfb..9a3121a3391 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4836,6 +4836,10 @@ sweep_weak_table (h, remove_entries_p)
 
 		  h->count = make_number (XFASTINT (h->count) - 1);
 		}
+	      else
+		{
+		  prev = idx;
+		}
 	    }
 	  else
 	    {