GNU bug report logs -
#7053
reftex and up-list
Previous Next
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
> 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.