# HG changeset patch # User Richard M. Stallman # Date 1008050872 0 # Node ID 9ad71f03b20b57f2c737553b1efcfa1a50aaf008 # Parent 2fba35852455f37a898ccb54560f954b43e10b5b (ispell-buffer-local-parsing): Match xml like sgml. diff -r 2fba35852455 -r 9ad71f03b20b lisp/textmodes/ispell.el --- a/lisp/textmodes/ispell.el Tue Dec 11 06:07:07 2001 +0000 +++ b/lisp/textmodes/ispell.el Tue Dec 11 06:07:52 2001 +0000 @@ -3127,7 +3127,7 @@ ;; If needed, test for SGML & HTML modes and set a buffer local nil/t value. (if (and ispell-skip-html (not (eq ispell-skip-html t))) (set (make-local-variable 'ispell-skip-html) - (not (null (string-match "sgml\\|html" + (not (null (string-match "sgml\\|html\\|xml" (downcase (symbol-name major-mode))))))) ;; Set default extended character mode for given buffer, if any. (let ((extended-char-mode (ispell-get-extended-character-mode)))