Subject: Re: bug#7053: Reftex is fully broken

From: Alpár Jüttner <[email-masked]>
Date: Sun, 19 Sep 2010 07:34:51 +0200

> Can you try the patch below, to see if it fixes your problem?

Yes, it works fine with the patch. Many thanks for it. How will I see
when it goes to the bzr repo? (I try not to pull until it happens).

Regards,
Alpar

> 
> 
>         Stefan
> 
>         
> === modified file 'lisp/textmodes/reftex-parse.el'
> --- lisp/textmodes/reftex-parse.el	2010-08-29 22:13:49 +0000
> +++ lisp/textmodes/reftex-parse.el	2010-09-18 14:45:39 +0000
> @@ -778,13 +778,15 @@
>            (narrow-to-region (max (point-min) bound) (point-max))
>            ;; move back out of the current parenthesis
>            (while (condition-case nil
> -                     (progn (up-list -1) t)
> +                     (let ((forward-sexp-function nil))
> +                       (up-list -1) t)
>                     (error nil))
>              (setq cnt 1 cnt-opt 0)
>              ;; move back over any touching sexps
>              (while (and (reftex-move-to-previous-arg bound)
>                          (condition-case nil
> -                            (progn (backward-sexp) t)
> +                            (let ((forward-sexp-function nil))
> +                              (backward-sexp) t)
>                            (error nil)))
>                (if (eq (following-char) ?\[) (incf cnt-opt))
>                (incf cnt))
> @@ -973,7 +975,7 @@
>       (min (+ (point) 150)
>            (point-max)
>            (condition-case nil
> -              (progn
> +              (let ((forward-sexp-function nil))
>                  (up-list 1)
>                  (1- (point)))
>              (error (point-max))))))
>