procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(flyspell-math-tex-command-p): Always catch errors raised in

Browse source 
`texmathp'.
(flyspell-tex-math-initialized): Remove.
This commit is contained in:
Chong Yidong 2008-09-17 00:55:38 +00:00
parent 6db65bf8bd
commit f768e8e8c9
1 changed files with 6 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/textmodes/flyspell.el
View file

@ -1165,36 +1165,20 @@ Mostly we check word delimiters."
(if ispell-quit (setq ispell-quit nil))
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 ... */