ispell 3.4 nested ignore blocks

[Michael Ernst]

ispell.el 3.4 is distributed with Emacs 21.2.

When there are nested begin-end blocks that ispell ignores,
`ispell-message' can throw an error.  This patch corrects the problem.
This does not appear to be necessary in ispell.el 3.5, so it would be even
better if you simply distributed that version with Emacs 21.3 instead.


2002-03-25  Michael Ernst  <mernst@alum.mit.edu>

        * textmodes/ispell.el (ispell-get-line): Don't err if end is
        before point.

*** /usr/local/share/emacs/21.2/lisp/textmodes/ispell.el        Mon Jan 28 
11:33:01 2002
--- -   Mon Mar 25 16:32:17 2002
***************
*** 2596,2601 ****
       ;;((looking-at "[-#@*+!%~^]")    ; SKIP SPECIAL ISPELL CHARACTERS
       ;; (forward-char 1))             ; not needed as quoted below.
!      ((or (re-search-forward ispell-casechars end t) ; TEXT EXISTS
!         (re-search-forward "[][()${}]" end t)) ; or MATH COMMANDS
        (setq string (concat "^" (buffer-substring-no-properties start end)
                           "\n"))
--- 2596,2602 ----
       ;;((looking-at "[-#@*+!%~^]")    ; SKIP SPECIAL ISPELL CHARACTERS
       ;; (forward-char 1))             ; not needed as quoted below.
!      ((and (< (point) end)
!            (or (re-search-forward ispell-casechars end t) ; TEXT EXISTS
!                (re-search-forward "[][()${}]" end t))) ; or MATH COMMANDS
        (setq string (concat "^" (buffer-substring-no-properties start end)
                           "\n"))