mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-message): Fixed infinite loop on shortened msg.

Browse source
This commit is contained in:
Richard M. Stallman 1994-04-03 06:04:35 +00:00
parent 2e8907d397
commit ae9fdfe5e1
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/ispell.el
View file

@ -1756,14 +1756,14 @@ news-reply-mode-hook or mail-mode-hook to the following lambda expression:
(beginning-of-buffer)
(let* ((internal-messagep
(search-forward mail-header-separator nil t))
(limit
(limit (copy-marker
(cond
((not ispell-message-text-end) (point-max))
((char-or-string-p ispell-message-text-end)
(if (re-search-forward ispell-message-text-end nil t)
(match-beginning 0)
(point-max)))
(t (min (point-max) (funcall ispell-message-text-end)))))
(t (min (point-max) (funcall ispell-message-text-end))))))
(cite-regexp ;Prefix of inserted text
(cond
((featurep 'supercite) ; sc 3.0
@ -1833,7 +1833,8 @@ news-reply-mode-hook or mail-mode-hook to the following lambda expression:
(match-beginning 0)
limit))))
(ispell-region (point) end)
(goto-char end))))))))
(goto-char end)))))
(set-marker limit nil))))
(defun ispell-non-empty-string (string)
(if (or (not string) (string-equal string ""))