mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(ispell-region): Handle ispell-skip-sgml properly with an re-search.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-05-31 20:12:44 +00:00
parent 846e8c10a0
commit 651939b595
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/textmodes/ispell.el
View File

@ -1700,7 +1700,7 @@ With prefix argument, set the default directory."
(re-search-forward ispell-tib-ref-beginning end t)
(setq ref-type 'tib))
(and ispell-skip-sgml
(search-forward "[<&]" end t)
(re-search-forward "[<&]" end t)
(setq ref-type 'sgml)))
(if (or (and (eq 'tib ref-type) ; tib tag is 2 chars.
(= (- (point) 2) start))
@ -1714,7 +1714,7 @@ With prefix argument, set the default directory."
(not
(re-search-forward ispell-tib-ref-end reg-end t)))
(and (eq 'sgml ref-type)
(not (search-forward "[>;]" reg-end t))))
(not (re-search-forward "[>;]" reg-end t))))
(progn
(ispell-pdict-save ispell-silently-savep)
(ding)