Path: eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: =?utf-8?Q?Denis_Bitouz=C3=A9?= <dbitouze@wanadoo.fr>
Newsgroups: fr.comp.applications.emacs
Subject: Re: `add-to-list` : factorisation ?
Date: Thu, 14 May 2020 18:05:21 +0200
Organization: A noiseless patient Spider
Lines: 52
Message-ID: <87mu6aijsu.fsf@example.com>
References: <87k11fk12p.fsf@example.com> <878shvc950.fsf@charlotte.rdhp>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Injection-Info: reader02.eternal-september.org; posting-host="f465bd97fcf49d0998be3280fb83a4ce";
	logging-data="31869"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/1g+MnxDUmIk7kJEOBb/k3kUEEUTIExZs="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
Cancel-Lock: sha1:gL4Hg5TmSvrtAMyisMZF9IMdrZ0=
	sha1:N0rLOjdLkyUXjE1q9vcZ0YpGqz8=
X-Archive: encrypt
X-Url: http://gte.univ-littoral.fr/members/dbitouze/pub/latex

Le 14/05/20 =C3=A0 08h39, Jean-Jacques R=C3=A9torr=C3=A9 a =C3=A9crit :

> J'aurais propos=C3=A9
>
> (dolist (env LaTeX-verbatim-environments-local (add-to-list
> 'LaTeX-indent-environment-list (list env current-indentation))))
>
> =C3=87a me para=C3=AEt vraiment trop simple...

En effet. Lancer C-x C-e =C3=A0 la fin des 2 instructions suivantes :

(setq LaTeX-verbatim-environments-local '("truc"
                                           "machin"
                                           "bidule"
                                           ))

(dolist (env LaTeX-verbatim-environments-local (add-to-list
'LaTeX-indent-environment-list (list env current-indentation))))

conduit pour la 2e =C3=A0 :

  =E2=94=8C=E2=94=80=E2=94=80=E2=94=80=E2=94=80
  =E2=94=82 Debugger entered--Lisp error: (void-variable current-indentatio=
n)
  =E2=94=82   (list env current-indentation)
  =E2=94=82   (let* ((x (list env current-indentation))) (if (member x LaTe=
X-indent-environment-list) LaTeX-indent-environment-list (setq LaTeX-indent=
-environment-list (cons x LaTeX-indent-environment-list))))
  =E2=94=82   (let ((--dolist-tail-- LaTeX-verbatim-environments-local) env=
) (while --dolist-tail-- (setq env (car --dolist-tail--)) (setq --dolist-ta=
il-- (cdr --dolist-tail--))) (setq env nil) (let* ((x (list env current-ind=
entation))) (if (member x LaTeX-indent-environment-list) LaTeX-indent-envir=
onment-list (setq LaTeX-indent-environment-list (cons x LaTeX-indent-enviro=
nment-list)))))
  =E2=94=82   eval((let ((--dolist-tail-- LaTeX-verbatim-environments-local=
) env) (while --dolist-tail-- (setq env (car --dolist-tail--)) (setq --doli=
st-tail-- (cdr --dolist-tail--))) (setq env nil) (let* ((x (list env curren=
t-indentation))) (if (member x LaTeX-indent-environment-list) LaTeX-indent-=
environment-list (setq LaTeX-indent-environment-list (cons x LaTeX-indent-e=
nvironment-list))))) nil)
  =E2=94=82   elisp--eval-last-sexp(nil)
  =E2=94=82   eval-last-sexp(nil)
  =E2=94=82   funcall-interactively(eval-last-sexp nil)
  =E2=94=82   call-interactively(eval-last-sexp nil nil)
  =E2=94=82   command-execute(eval-last-sexp)
  =E2=94=94=E2=94=80=E2=94=80=E2=94=80=E2=94=80

Et, l=C3=A0, je dois dire que je n'y entrave que pouic...

Merci en tout cas.
--=20
Denis