GNU bug report logs - #7053
reftex and up-list

Previous Next

Package: emacs;

Reported by: Alpár Jüttner <alpar <at> cs.elte.hu>

Date: Fri, 17 Sep 2010 11:10:03 UTC

Severity: normal

Tags: patch

Done: Stefan Monnier <monnier <at> IRO.UMontreal.CA>

Bug is archived. No further changes may be made.

Full log


View this message in rfc822 format

From: Alpár Jüttner <alpar <at> cs.elte.hu>
To: Stefan Monnier <monnier <at> IRO.UMontreal.CA>
Cc: Eli Zaretskii <eliz <at> gnu.org>, 7053 <at> debbugs.gnu.org, Carsten Dominik <dominik <at> science.uva.nl>
Subject: bug#7053: Reftex is fully broken
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))))))
> 






This bug report was last modified 14 years and 309 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.