[Emacs-diffs] /srv/bzr/emacs/trunk r109407: Workaround for latex-forward-sexp slowness.

[Chong Yidong]

------------------------------------------------------------
revno: 109407
fixes bug: http://debbugs.gnu.org/5734
author: João Távora <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2012-08-03 10:29:59 +0800
message:
  Workaround for latex-forward-sexp slowness.
  
  * textmodes/tex-mode.el (latex-forward-sexp): Terminate the loop if
  sexp scanning does not move point.
modified:
  lisp/ChangeLog
  lisp/textmodes/tex-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-02 19:04:53 +0000
+++ b/lisp/ChangeLog    2012-08-03 02:29:59 +0000
@@ -1,3 +1,8 @@
+2012-08-03  João Távora  <address@hidden>
+
+       * textmodes/tex-mode.el (latex-forward-sexp): Terminate the loop
+       if sexp scanning does not move point (Bug#5734).
+
 2012-08-02  Tassilo Horn  <address@hidden>
 
        * textmodes/reftex-vars.el (reftex-default-label-alist-entries):

=== modified file 'lisp/textmodes/tex-mode.el'
--- a/lisp/textmodes/tex-mode.el        2012-07-17 08:11:31 +0000
+++ b/lisp/textmodes/tex-mode.el        2012-08-03 02:29:59 +0000
@@ -1722,9 +1722,12 @@
   "Like `forward-sexp' but aware of multi-char elements and escaped parens."
   (interactive "P")
   (unless arg (setq arg 1))
-  (let ((pos (point)))
+  (let ((pos (point))
+       (opoint 0))
     (condition-case err
-       (while (/= arg 0)
+       (while (and (/= (point) opoint)
+                   (/= arg 0))
+         (setq opoint (point))
          (setq arg
                (if (> arg 0)
                    (progn (latex-forward-sexp-1) (1- arg))