Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 92933:fc82b6139b36
* textmodes/flyspell.el (nxml-mode): Add the right.
`flyspell-mode-predicate'.
* wid-edit.el (link): Use 'mouse-face for :follow-link.
| author | Bastien Guerry <bzg@altern.org> |
|---|---|
| date | Fri, 14 Mar 2008 10:13:30 +0000 |
| parents | 107ccd98fa12 |
| children | 7aae3fb72148 |
comparison
equal
deleted
inserted
replaced
| 92932:6de0682bb52b | 92933:fc82b6139b36 |
|---|---|
| 347 (<= this (match-end 0)) ))))))) | 347 (<= this (match-end 0)) ))))))) |
| 348 | 348 |
| 349 ;;*--- sgml mode -------------------------------------------------------*/ | 349 ;;*--- sgml mode -------------------------------------------------------*/ |
| 350 (put 'sgml-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify) | 350 (put 'sgml-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify) |
| 351 (put 'html-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify) | 351 (put 'html-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify) |
| 352 (put 'nxml-mode 'flyspell-mode-predicate 'sgml-mode-flyspell-verify) | |
| 352 | 353 |
| 353 (defun sgml-mode-flyspell-verify () | 354 (defun sgml-mode-flyspell-verify () |
| 354 "Function used for `flyspell-generic-check-word-predicate' in SGML mode." | 355 "Function used for `flyspell-generic-check-word-predicate' in SGML mode." |
| 355 (not (save-excursion | 356 (not (save-excursion |
| 356 (let ((this (point-marker)) | 357 (let ((this (point-marker)) |