Re: `add-to-list` : factorisation ?

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