emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

address@hidden: ispell 3.4 nested ignore blocks]


From: Richard Stallman
Subject: address@hidden: ispell 3.4 nested ignore blocks]
Date: Wed, 27 Mar 2002 21:54:49 -0700 (MST)

Is it true that you have changes for ispell.el?
If so, would you please send them now?

In general, please send ispell changes as soon as they are
working--please don't wait.

------- Start of forwarded message -------
From: Michael Ernst <address@hidden>
To: address@hidden, address@hidden
Subject: ispell 3.4 nested ignore blocks
Sender: address@hidden
Date: Mon, 25 Mar 2002 17:30:02 -0500

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  <address@hidden>

        * 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 "address@hidden") ; 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 "address@hidden") ; 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"))

_______________________________________________
Bug-gnu-emacs mailing list
address@hidden
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs
------- End of forwarded message -------



reply via email to

[Prev in Thread] Current Thread [Next in Thread]