[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/23 23:05:40

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : flyspell.el 

Log message:
        (sgml-mode-flyspell-verify): Pass limit args
        to looking-back to avoid ridiculous slow down in large files (bug#4511).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16240&r2=1.16241
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.146&r2=1.147

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16240
retrieving revision 1.16241
diff -u -b -r1.16240 -r1.16241
--- ChangeLog   23 Sep 2009 06:20:23 -0000      1.16240
+++ ChangeLog   23 Sep 2009 23:05:37 -0000      1.16241
@@ -1,3 +1,8 @@
+2009-09-23  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * 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.
+       * register.el (ctl-x-r-map): Define the keys here instead of
+       using autoload.
 
-2009-09-20  Thierry Volpiatto  <address@hidden>
+2009-09-20  Thierry Volpiatto  <address@hidden>  (tiny change)
 
        * bookmark.el (bookmark-write-file): Avoid calling `pp' with large
        list, to workaround performance problem (bug#4485).

Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -b -r1.146 -r1.147
--- textmodes/flyspell.el       1 Sep 2009 07:24:21 -0000       1.146
+++ textmodes/flyspell.el       23 Sep 2009 23:05:40 -0000      1.147
@@ -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                                                 */