From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 1 Dec 2018 21:40:13 +0000 (-0800)
Subject: Fix infloop in GC mark_kboards
X-Git-Tag: emacs-26.1.91~64
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af914fc;p=emacs.git

Fix infloop in GC mark_kboards

Do not merge to master, as I have a more systematic fix there.
* src/keyboard.c (mark_kboards): Fix infloop (Bug#33547).
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 0d56ea3f7ac..dccc6b7f128 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -12011,7 +12011,12 @@ mark_kboards (void)
     for (event = kbd_fetch_ptr; event != kbd_store_ptr; event++)
       {
 	if (event == kbd_buffer + KBD_BUFFER_SIZE)
-	  event = kbd_buffer;
+	  {
+	    event = kbd_buffer;
+	    if (event == kbd_store_ptr)
+	      break;
+	  }
+
 	/* These two special event types has no Lisp_Objects to mark.  */
 	if (event->kind != SELECTION_REQUEST_EVENT
 	    && event->kind != SELECTION_CLEAR_EVENT)