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) |