Hi,
Why use command to match against TeX-command-output-list instead of *name* ?
For example, in =tex-buf.el=,
(defun TeX-run-set-command (name command)
"Remember TeX command to use to NAME and set corresponding output extension."
(setq TeX-command-default name
TeX-output-extension
(if (and (null (TeX-PDF-from-DVI)) TeX-PDF-mode) "pdf" "dvi"))
(let ((case-fold-search t)
(lst TeX-command-output-list))
(while lst
****************** (if (string-match (car (car lst)) command) **********************************
(setq TeX-output-extension (car (cdr (car lst)))
lst nil)
(setq lst (cdr lst))))))
Matching against *name* instead of *command* will be more natural and flexible.
--
Best,
Shiyao