Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 8052:18870eff0f54
(ispell-message): Avoid an infinite loop.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 25 Jun 1994 04:30:44 +0000 |
parents | e6e305453f19 |
children | 0ff871ea99d4 |
comparison
equal
deleted
inserted
replaced
8051:a320525f4d8f | 8052:18870eff0f54 |
---|---|
1989 (forward-line 1)) | 1989 (forward-line 1)) |
1990 (while (< (point) limit) | 1990 (while (< (point) limit) |
1991 ;; Skip across text cited from other messages. | 1991 ;; Skip across text cited from other messages. |
1992 (while (and (looking-at cite-regexp-start) | 1992 (while (and (looking-at cite-regexp-start) |
1993 (< (point) limit)) | 1993 (< (point) limit)) |
1994 (forward-line 1)) | 1994 (let ((point1 (point))) |
1995 (forward-line 1) | |
1996 ;; If there's no next line, go to the end of this one | |
1997 ;; so that the loop stops looping. | |
1998 (if (eq point1 (point)) | |
1999 (end-of-line)))) | |
1995 (if (< (point) limit) | 2000 (if (< (point) limit) |
1996 ;; Check the next batch of lines that *aren't* cited. | 2001 ;; Check the next batch of lines that *aren't* cited. |
1997 (let ((end (save-excursion | 2002 (let ((end (save-excursion |
1998 (if (re-search-forward cite-regexp-end limit 'end) | 2003 (if (re-search-forward cite-regexp-end limit 'end) |
1999 (match-beginning 0) | 2004 (match-beginning 0) |