[debian-devel:13825] Re: How to change new auctex-10.0d

[Fumitoshi UKAI <ukai@debian.or.jp>]

At Wed, 28 Feb 2001 10:35:45 +0900,
NABETANI Hidenobu wrote:

> 質問は、tex-jp.el の以下の部分。
> ----------------------------------------------------------------------
> (defvar japanese-TeX-command-default "jTeX"
>   "The default command for TeX-command in the japanese-TeX mode.")
> (make-variable-buffer-local 'japanese-TeX-command-default)
> 
> (defvar japanese-LaTeX-command-default "jLaTeX"
>   "The default command for TeX-command in the japanese-LaTeX mode.")
> (make-variable-buffer-local 'japanese-LaTeX-command-default)
> ----------------------------------------------------------------------
> デフォルトコマンドは jTeX, jLaTeX の方が Debian 的に都合が
> よいのですが、世の中では pTeX, pLaTeX をデフォルトにして欲
> しいという要望も強い。
> 
> そこで、条件分岐を使ってデフォルトコマンドを j*TeX と p*TeX に
> 振り分けられないかと考えています。
> 何分 EmacsLisp は素人なので、アドバイスを頂きたいと思います。

んー こういうのとか?

(defvar japanese-TeX-command-default
 (let ((cmd-list '("pTeX" "jTeX"))
      (cmd))
  (catch 'found
    (setq cmd (car cmd-list))
    (setq cmd-list (cdr cmd-list))
    (while cmd
      (let ((e-path (cdr exec-path))
	    (path (car exec-path))
	    (fname))
	(while path
	  (setq fname (concat path "/" cmd))
	  (and (file-executable-p fname)
	       (throw 'found cmd))
	  (setq path (car e-path))
	  (setq e-path (cdr e-path))))
      (setq cmd (car cmd-list))
      (setq cmd-list (cdr cmd-list))))))

; まぁ なんか出せばEmacsLispの詳しい人がもっといいやつを出してくれると期待:)

-- 
鵜飼文敏