aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-05-31 20:12:44 +0000
committerRichard M. Stallman1996-05-31 20:12:44 +0000
commit651939b595890a5f85bb876dc03a1038b0e66325 (patch)
tree3f81de718ef19133b6f5a1ffad0e9e2c9cf12005
parent846e8c10a08a1995639e0e383ac96a5047cedac7 (diff)
downloademacs-651939b595890a5f85bb876dc03a1038b0e66325.tar.gz
emacs-651939b595890a5f85bb876dc03a1038b0e66325.zip
(ispell-region): Handle ispell-skip-sgml properly with an re-search.
-rw-r--r--lisp/textmodes/ispell.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 95f870d8f6c..dfc034b0455 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1700,7 +1700,7 @@ With prefix argument, set the default directory."
1700 (re-search-forward ispell-tib-ref-beginning end t) 1700 (re-search-forward ispell-tib-ref-beginning end t)
1701 (setq ref-type 'tib)) 1701 (setq ref-type 'tib))
1702 (and ispell-skip-sgml 1702 (and ispell-skip-sgml
1703 (search-forward "[<&]" end t) 1703 (re-search-forward "[<&]" end t)
1704 (setq ref-type 'sgml))) 1704 (setq ref-type 'sgml)))
1705 (if (or (and (eq 'tib ref-type) ; tib tag is 2 chars. 1705 (if (or (and (eq 'tib ref-type) ; tib tag is 2 chars.
1706 (= (- (point) 2) start)) 1706 (= (- (point) 2) start))
@@ -1714,7 +1714,7 @@ With prefix argument, set the default directory."
1714 (not 1714 (not
1715 (re-search-forward ispell-tib-ref-end reg-end t))) 1715 (re-search-forward ispell-tib-ref-end reg-end t)))
1716 (and (eq 'sgml ref-type) 1716 (and (eq 'sgml ref-type)
1717 (not (search-forward "[>;]" reg-end t)))) 1717 (not (re-search-forward "[>;]" reg-end t))))
1718 (progn 1718 (progn
1719 (ispell-pdict-save ispell-silently-savep) 1719 (ispell-pdict-save ispell-silently-savep)
1720 (ding) 1720 (ding)