diff options
| author | Richard M. Stallman | 1996-05-31 20:12:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-31 20:12:44 +0000 |
| commit | 651939b595890a5f85bb876dc03a1038b0e66325 (patch) | |
| tree | 3f81de718ef19133b6f5a1ffad0e9e2c9cf12005 | |
| parent | 846e8c10a08a1995639e0e383ac96a5047cedac7 (diff) | |
| download | emacs-651939b595890a5f85bb876dc03a1038b0e66325.tar.gz emacs-651939b595890a5f85bb876dc03a1038b0e66325.zip | |
(ispell-region): Handle ispell-skip-sgml properly with an re-search.
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 |
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) |