jfbu <j...@free.fr> writes: > Le 30/04/2015 23:43, Tassilo Horn a écrit : >> What is not right? >> > > To call kpsewhich separately for each, kpsewhich allows > to do one single call, but then you will want to prune out > the duplicate repertories
We do that anyway. Could you try if this gives better results than caching? --8<---------------cut here---------------start------------->8--- diff --git a/tex.el b/tex.el index b7ffc1f..4a1442e 100644 --- a/tex.el +++ b/tex.el @@ -640,7 +640,7 @@ overlays between two existing ones.") (when (featurep 'xemacs) (defun TeX-read-string - (prompt &optional initial-input history default-value) + (prompt &optional initial-input history default-value) (condition-case nil (read-string prompt initial-input history default-value t) (wrong-number-of-arguments @@ -2358,15 +2358,18 @@ trees. Only existing directories are returned." ;; several elements separated by "/". (let (path-list path exit-status input-dir-list) (condition-case nil - (dolist (var vars) + (progn (setq path (with-output-to-string - (setq exit-status (call-process - "kpsewhich" nil - (list standard-output nil) nil - "--progname" program - "--expand-path" var)))) + (setq exit-status + (call-process + "kpsewhich" nil + (list standard-output nil) nil + "--progname" program + "--expand-path" + ;; FIXME: Don't assume : is the path separator + (mapconcat #'identity vars ":"))))) (when (zerop exit-status) - (pushnew path path-list :test #'equal))) + (pushnew path path-list :test #'equal))) (error nil)) (dolist (elt (nreverse path-list)) (let ((separators (if (string-match "^[A-Za-z]:" elt) --8<---------------cut here---------------end--------------->8--- > As an aside notice that SYSTEXMF by default already produces TEXMFDIST > and TEXMFLOCAL > > at least that the default set-up in texmf.cnf If I user is free to change that, we cannot take it for granted. Bye, Tassilo _______________________________________________ auctex mailing list auctex@gnu.org https://lists.gnu.org/mailman/listinfo/auctex