From 7e6972e92c437bf98a74c36b34d0f43dde90ecf3 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Mon, 27 Sep 1999 11:34:27 +0000
Subject: [PATCH] (scan_lisp_file): Fix typo causing infloop.

---
 lib-src/make-docfile.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index 849ff25397e..3045dc305f2 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -629,7 +629,7 @@ scan_lisp_file (filename, mode)
 	  continue;
 	}
       /* Skip the line break.  */
-      while (c == '\n' || c != '\r')
+      while (c == '\n' || c == '\r')
 	c = getc (infile);
       /* Detect a dynamic doc string and save it for the next expression.  */
       if (c == '#')
-- 
2.39.5