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

[NABETANI Hidenobu <nabetani@xxxxxxxxxxxxxxxxxxxxxxxxxxx>]

鍋谷です。

素早いリプライありがとうございます(あまりの早さに感動しました)。
動作確認の後、upstream の方に取り込みたいと思います。

# パッと見てコードが何をやっているか、私にはわからない(^^;
# EmacsLisp も勉強しないといけませんね。

ukai@debian.or.jp (Fumitoshi UKAI) writes:

> > 質問は、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)
> > ----------------------------------------------------------------------
> > 
> > そこで、条件分岐を使ってデフォルトコマンドを j*TeX と p*TeX に
> > 振り分けられないかと考えています。
> 
> んー こういうのとか?
> 
> (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の詳しい人がもっといいやつを出してくれると期待:)

-- 
大阪大学理学研究科物理学専攻 博士後期課程3年 大坪研究室
      鍋谷 栄展  <nabetani@xxxxxxxxxxxxxxxxxxxxxxxxxxx>