Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 41937:9ad71f03b20b
(ispell-buffer-local-parsing): Match xml like sgml.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2001 06:07:52 +0000 |
| parents | 31e7749d1e1a |
| children | 66bf9fec7803 |
comparison
equal
deleted
inserted
replaced
| 41936:2fba35852455 | 41937:9ad71f03b20b |
|---|---|
| 3125 (set (make-local-variable 'ispell-parser) 'tex))) | 3125 (set (make-local-variable 'ispell-parser) 'tex))) |
| 3126 (ispell-send-string "-\n")) ; set mode to normal (nroff) | 3126 (ispell-send-string "-\n")) ; set mode to normal (nroff) |
| 3127 ;; If needed, test for SGML & HTML modes and set a buffer local nil/t value. | 3127 ;; If needed, test for SGML & HTML modes and set a buffer local nil/t value. |
| 3128 (if (and ispell-skip-html (not (eq ispell-skip-html t))) | 3128 (if (and ispell-skip-html (not (eq ispell-skip-html t))) |
| 3129 (set (make-local-variable 'ispell-skip-html) | 3129 (set (make-local-variable 'ispell-skip-html) |
| 3130 (not (null (string-match "sgml\\|html" | 3130 (not (null (string-match "sgml\\|html\\|xml" |
| 3131 (downcase (symbol-name major-mode))))))) | 3131 (downcase (symbol-name major-mode))))))) |
| 3132 ;; Set default extended character mode for given buffer, if any. | 3132 ;; Set default extended character mode for given buffer, if any. |
| 3133 (let ((extended-char-mode (ispell-get-extended-character-mode))) | 3133 (let ((extended-char-mode (ispell-get-extended-character-mode))) |
| 3134 (if extended-char-mode | 3134 (if extended-char-mode |
| 3135 (ispell-send-string (concat extended-char-mode "\n")))) | 3135 (ispell-send-string (concat extended-char-mode "\n")))) |