mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-message): Avoid an infinite loop.

Browse source
This commit is contained in:
Richard M. Stallman 1994-06-25 04:30:44 +00:00
parent 9f04f0237a
commit 565101f473
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/ispell.el
View file

@ -1991,7 +1991,12 @@ you can bind this to the key C-c i in GNUS or mail by adding to
;; Skip across text cited from other messages. ;; Skip across text cited from other messages.
(while (and (looking-at cite-regexp-start) (while (and (looking-at cite-regexp-start)
(< (point) limit)) (< (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) (if (< (point) limit)
;; Check the next batch of lines that *aren't* cited. ;; Check the next batch of lines that *aren't* cited.
(let ((end (save-excursion (let ((end (save-excursion