Re: [AUCTeX] Long loading time

[Tassilo Horn]

jfbu <address@hidden> 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