Sujet : Re: `add-to-list` : factorisation ?
De : dbitouze (at) *nospam* wanadoo.fr (Denis Bitouzé)
Groupes : fr.comp.applications.emacsOrganisation : A noiseless patient Spider
Date : 14. May 2020, 18:05:21
Message-ID : <87mu6aijsu.fsf@example.com>References : 1 2User-Agent : Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
Le 14/05/20 à 08h39, Jean-Jacques Rétorré a écrit :
J'aurais proposé
>
(dolist (env LaTeX-verbatim-environments-local (add-to-list
'LaTeX-indent-environment-list (list env current-indentation))))
>
Ça me paraît vraiment trop simple...
En effet. Lancer C-x C-e à 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 à :
┌────
│ Debugger entered--Lisp error: (void-variable current-indentation)
│ (list env current-indentation)
│ (let* ((x (list env current-indentation))) (if (member x LaTeX-indent-environment-list) LaTeX-indent-environment-list (setq LaTeX-indent-environment-list (cons x LaTeX-indent-environment-list))))
│ (let ((--dolist-tail-- LaTeX-verbatim-environments-local) env) (while --dolist-tail-- (setq env (car --dolist-tail--)) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq env nil) (let* ((x (list env current-indentation))) (if (member x LaTeX-indent-environment-list) LaTeX-indent-environment-list (setq LaTeX-indent-environment-list (cons x LaTeX-indent-environment-list)))))
│ eval((let ((--dolist-tail-- LaTeX-verbatim-environments-local) env) (while --dolist-tail-- (setq env (car --dolist-tail--)) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq env nil) (let* ((x (list env current-indentation))) (if (member x LaTeX-indent-environment-list) LaTeX-indent-environment-list (setq LaTeX-indent-environment-list (cons x LaTeX-indent-environment-list))))) nil)
│ elisp--eval-last-sexp(nil)
│ eval-last-sexp(nil)
│ funcall-interactively(eval-last-sexp nil)
│ call-interactively(eval-last-sexp nil nil)
│ command-execute(eval-last-sexp)
└────
Et, là, je dois dire que je n'y entrave que pouic...
Merci en tout cas.
-- Denis