# HG changeset patch # User Stefan Monnier # Date 1253747137 0 # Node ID 716269aba178c565fa352c34ffdd1ff2e6f2feb8 # Parent f39abe4431e9af3d67520cac27cab83b6ab87672 (sgml-mode-flyspell-verify): Pass limit args to looking-back to avoid ridiculous slow down in large files (bug#4511). diff -r f39abe4431e9 -r 716269aba178 lisp/ChangeLog --- a/lisp/ChangeLog Wed Sep 23 18:27:07 2009 +0000 +++ b/lisp/ChangeLog Wed Sep 23 23:05:37 2009 +0000 @@ -1,3 +1,8 @@ +2009-09-23 Stefan Monnier + + * textmodes/flyspell.el (sgml-mode-flyspell-verify): Pass limit args + to looking-back to avoid ridiculous slow down in large files (bug#4511). + 2009-09-23 Glenn Morris * mail/rmail.el (rmail-reply): Don't try to add a References header when @@ -127,9 +132,10 @@ (vc-git-stash-show-at-point): New functions. (vc-git-stash-map): New keymap. - * register.el (ctl-x-r-map): Define the keys here instead of using autoload. - -2009-09-20 Thierry Volpiatto + * register.el (ctl-x-r-map): Define the keys here instead of + using autoload. + +2009-09-20 Thierry Volpiatto (tiny change) * bookmark.el (bookmark-write-file): Avoid calling `pp' with large list, to workaround performance problem (bug#4485). diff -r f39abe4431e9 -r 716269aba178 lisp/textmodes/flyspell.el --- a/lisp/textmodes/flyspell.el Wed Sep 23 18:27:07 2009 +0000 +++ b/lisp/textmodes/flyspell.el Wed Sep 23 23:05:37 2009 +0000 @@ -363,9 +363,10 @@ "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 */