Mercurial > emacs

changeset 8052:18870eff0f54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-message): Avoid an infinite loop.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 1994 04:30:44 +0000
parents a320525f4d8f
children 60792df5f81f
files lisp/textmodes/ispell.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Sat Jun 25 01:42:43 1994 +0000
+++ b/lisp/textmodes/ispell.el	Sat Jun 25 04:30:44 1994 +0000
@@ -1991,7 +1991,12 @@
 	;; Skip across text cited from other messages.
 	(while (and (looking-at cite-regexp-start)
 		    (< (point) limit))
-	  (forward-line 1))
+	  (let ((point1 (point)))
+	    (forward-line 1)
+	    ;; If there's no next line, go to the end of this one
+	    ;; so that the loop stops looping.
+	    (if (eq point1 (point))
+		(end-of-line))))
 	(if (< (point) limit)
 	    ;; Check the next batch of lines that *aren't* cited.
 	    (let ((end (save-excursion