Commit e3c39c01 authored by Kevin Ryde's avatar Kevin Ryde
Browse files

* textmodes/flyspell.el (sgml-mode-flyspell-verify): Use

`sgml-lexical-context' instead of own parse for tag.  (Further to
Bug#4511).
parent 8834a98b
2009-11-16 Kevin Ryde <user42@zip.com.au>
* textmodes/flyspell.el (sgml-mode-flyspell-verify): Use
`sgml-lexical-context' instead of own parse for tag. (Further to
Bug#4511).
2009-11-16 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (vc-log-show-limit): Default to 2000.
......
......@@ -360,13 +360,14 @@ property of the major mode name.")
(put 'nxml-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify)
(defun sgml-mode-flyspell-verify ()
"Function used for `flyspell-generic-check-word-predicate' in SGML mode."
(not (save-excursion
(or (looking-at "[^<\n]*>")
(ispell-looking-back "<[^>\n]*" (line-beginning-position))
(and (looking-at "[^&\n]*;")
(ispell-looking-back "&[^;\n]*"
(line-beginning-position)))))))
"Function used for `flyspell-generic-check-word-predicate' in SGML mode.
Tag and attribute names are not spell checked, everything else is.
String values of attributes are checked because they can be text
like <img alt=\"Some thing.\">."
(not (memq (car (sgml-lexical-context))
'(tag pi))))
;;*---------------------------------------------------------------------*/
;;* Programming mode */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment