[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Find outermost containing sexp
From: |
weber |
Subject: |
Re: Find outermost containing sexp |
Date: |
2 May 2007 05:51:19 -0700 |
User-agent: |
G2/1.0 |
On 2 maio, 08:31, A Soare <alins...@voila.fr> wrote:
> In function calculate-lisp-indent:
>
> ;; Find outermost containing sexp
> (while (< (point) indent-point)
> (setq state (parse-partial-sexp (point) indent-point 0)))
>
> Cn somebody give me an example where (setq ... is executed here more than
> once, please?
You mean this?
(while (< (point) indent-point)
(progn
(setq another-thing another-value)
(setq state (parse-partial-sexp (point) indent-point 0))))
Cheers