[AUCTeX-commit] Changes to auctex/tex-jp.el,v

[Masayuki Ataka]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Masayuki Ataka <ataka>  07/02/09 04:37:23

Index: tex-jp.el
===================================================================
RCS file: /sources/auctex/auctex/tex-jp.el,v
retrieving revision 5.93
retrieving revision 5.94
diff -u -b -r5.93 -r5.94
--- tex-jp.el   18 Jan 2007 11:13:53 -0000      5.93
+++ tex-jp.el   9 Feb 2007 04:37:23 -0000       5.94
@@ -1,7 +1,7 @@
 ;;; tex-jp.el --- Support for Japanese TeX.
 
 ;; Copyright (C) 1999, 2001 Hidenobu Nabetani <address@hidden>
-;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation
 
 ;; Author:     KOBAYASHI Shinji <address@hidden>
 ;; Maintainer: Masayuki Ataka <address@hidden>
@@ -80,6 +80,8 @@
                                (function-item TeX-run-discard)
                                (function-item TeX-run-background)
                                (function-item TeX-run-silent)
+                               (function-item TeX-run-discard-foreground)
+                               (function-item TeX-run-function)
                                (function :tag "Other"))
                        (boolean :tag "Prompt")
                        (choice :tag "Modes"
@@ -192,11 +194,14 @@
 
 (when (featurep 'mule)
 
-(setq TeX-after-start-process-function
-      (lambda (process)
+(defun japanese-TeX-set-process-coding-system (process)
+  "Set proper coding system for japanese TeX PROCESS."
+  (if (with-current-buffer TeX-command-buffer japanese-TeX-mode)
        (set-process-coding-system process
         TeX-japanese-process-output-coding-system
         TeX-japanese-process-input-coding-system)))
+(setq TeX-after-start-process-function
+      'japanese-TeX-set-process-coding-system)
 )
 
 ;;; Japanese TeX modes