[AUCTeX-devel] Should we offer something like that?

[David Kastrup]

Hi,
any idea whether or how to integrate something like that into AUCTeX?

(defun TeXlive (year)
  "Use TeXlive with the given year (given as string), nil if no TeXlive."
  (interactive
   (let* ((year
           (directory-files "/usr/local/texlive/" nil "\\`[0-9]+\\'")))
     (setq year
           (completing-read (format "Year to use (default %s): "
                                    (car (last year)))
                            (cons "none" year)
                            nil t nil nil (car (last year))))
     (list (unless (string= year "none") year))))
  (let ((path (getenv "PATH")))
    (while (string-match "/usr/local/texlive/[0-9]+/bin/i386-linux:" path)
      (setq path (replace-match "" t t path)))
    (when year
      (setq path (format "/usr/local/texlive/%s/bin/i386-linux:%s"
                         year path)))
    (setenv "PATH" path)))

It is convenient for switching around between various TeXlive versions
and the system default, but it is not really general enough (how to
guess the correct system-specific binary directory?) to work on all
platforms.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum