xemacs with auc-tex and cjk-enc

[Sidney Wang <debian@rufolks.net>]

Hello All
照著 cjk-latex 中的方法设定 ~/.emacs 如下

(load-library "cjk-enc")

  (defun TeX-run-CJK-LaTeX (name command file)
    "Create a process for NAME using COMMAND to format FILE with CJK/LaTeX."
    (write-cjk-file)
    (TeX-run-LaTeX name command file))

  ;; replace the error source file from *.cjk to *.tex, then C-c ` can
  ;; be used as usual.

  (add-hook 'TeX-translate-location-hook
            '(lambda ()
               (if (string-match "\\(.*\\)\.cjk$" file)
                 (setq file 
                       (concat
                        (substring file 
                                   (match-beginning 1) 
                                   (match-end 1))
                        ".tex")))))

  (defvar TeX-command-list
    (list (list "TeX" "tex '\\nonstopmode\\input %t'" 'TeX-run-TeX nil t)
          (list "TeX Interactive" "tex %t" 'TeX-run-interactive nil t)
          (list "LaTeX" "%l '\\nonstopmode\\input{%t}'"
                'TeX-run-LaTeX nil t)
          (list "LaTeX Interactive" "%l %t" 'TeX-run-interactive nil t)
          (list "LaTeX2e" "latex2e '\\nonstopmode\\input{%t}'"
                'TeX-run-LaTeX nil t)
          (list "CJKLaTeX" "%l '\\nonstopmode\\input{%s.cjk}'"
                'TeX-run-CJK-LaTeX nil t)
          (if (or window-system (getenv "DISPLAY"))
              (list "View" "%v " 'TeX-run-background t nil)
            (list "View" "dvi2tty -q -w 132 %s " 'TeX-run-command t nil))
          (list "Print" "%p " 'TeX-run-command t nil)
          (list "Queue" "%q" 'TeX-run-background nil nil)
          (list "File" "dvips %d -o %f " 'TeX-run-command t nil)
          (list "BibTeX" "bibtex %s" 'TeX-run-BibTeX nil nil)
          (list "Index" "makeindex %s" 'TeX-run-command nil t)
          (list "Check" "lacheck %s" 'TeX-run-compile nil t)
          (list "Spell" "<ignored>" 'TeX-run-ispell nil nil)
          (list "Other" "" 'TeX-run-command t t)
          ;; Not part of standard TeX.
          (list "Makeinfo" "makeinfo %t" 'TeX-run-compile nil t)
          (list "AmSTeX" "amstex '\\nonstopmode\\input %t'"
                'TeX-run-TeX nil t)))

但在 xemacs 中却无法使用 CJKLatex 的命令, 在 emacs20 中可以, 有人知道如何修改吗?

-- 
To UNSUBSCRIBE, email to debian-chinese-big5-request@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org

-- 
| This message was re-posted from debian-chinese-big5@lists.debian.org
| and converted from big5 to gb2312 by an automatic gateway.