From ae9fdfe5e1035d5c914d465e4b3fb380d959f3f8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 3 Apr 1994 06:04:35 +0000 Subject: [PATCH] (ispell-message): Fixed infinite loop on shortened msg. --- lisp/textmodes/ispell.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 1050b494dc8..444555c5e47 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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 "")) -- 2.39.5