diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-09-17 00:55:38 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-09-17 00:55:38 +0000 |
| commit | f768e8e8c9be33c72dd5768daa11a21cfa580252 (patch) | |
| tree | 309fe54cd2bff5c82268dd0b5febb77cfa3f839c /lisp | |
| parent | 6db65bf8bd58976d7f3dfbd36ab5782600fb833c (diff) | |
| download | emacs-f768e8e8c9be33c72dd5768daa11a21cfa580252.tar.gz | |
(flyspell-math-tex-command-p): Always catch errors raised in
`texmathp'.
(flyspell-tex-math-initialized): Remove.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 28 |
1 files changed, 6 insertions, 22 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 47297c9fb1a..4296861fe61 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1166,35 +1166,19 @@ Mostly we check word delimiters." res)))))))) ;;*---------------------------------------------------------------------*/ -;;* flyspell-tex-math-initialized ... */ -;;*---------------------------------------------------------------------*/ -(defvar flyspell-tex-math-initialized nil) - -;;*---------------------------------------------------------------------*/ ;;* flyspell-math-tex-command-p ... */ ;;* ------------------------------------------------------------- */ -;;* This function uses the texmathp package to check if (point) */ -;;* is within a tex command. In order to avoid using */ -;;* condition-case each time we use the variable */ -;;* flyspell-tex-math-initialized to make a special case the first */ -;;* time that function is called. */ +;;* This function uses the texmathp package to check if point */ +;;* is within a TeX math environment. `texmathp' can yield errors */ +;;* if the document is currently not valid TeX syntax. */ ;;*---------------------------------------------------------------------*/ (defun flyspell-math-tex-command-p () (when (fboundp 'texmathp) - (cond - (flyspell-check-tex-math-command - nil) - ((eq flyspell-tex-math-initialized t) - (texmathp)) - ((eq flyspell-tex-math-initialized 'error) - nil) - (t - (setq flyspell-tex-math-initialized t) + (if flyspell-check-tex-math-command + nil (condition-case nil (texmathp) - (error (progn - (setq flyspell-tex-math-initialized 'error) - nil))))))) + (error nil))))) ;;*---------------------------------------------------------------------*/ ;;* flyspell-tex-command-p ... */ |