diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-23 23:05:37 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-23 23:05:37 +0000 |
| commit | 03304f3134c0fb7d8112a2d89e58248a9524abaa (patch) | |
| tree | c5808594db5a5544a671eb505a3364d357aedfe7 /lisp/textmodes | |
| parent | 954031b02390342dca552068621010f4bc78683b (diff) | |
| download | emacs-03304f3134c0fb7d8112a2d89e58248a9524abaa.tar.gz | |
(sgml-mode-flyspell-verify): Pass limit args
to looking-back to avoid ridiculous slow down in large files (bug#4511).
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index f7794e1bf6d..eff19e632fb 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -363,9 +363,10 @@ property of the major mode name.") "Function used for `flyspell-generic-check-word-predicate' in SGML mode." (not (save-excursion (or (looking-at "[^<\n]*>") - (ispell-looking-back "<[^>\n]*") + (ispell-looking-back "<[^>\n]*" (line-beginning-position)) (and (looking-at "[^&\n]*;") - (ispell-looking-back "&[^;\n]*")))))) + (ispell-looking-back "&[^;\n]*" + (line-beginning-position))))))) ;;*---------------------------------------------------------------------*/ ;;* Programming mode */ |