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)) |