--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/mule/mule-init.el	Mon Aug 13 09:02:59 2007 +0200
@@ -0,0 +1,146 @@
+;; Mule default configuration file
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the 
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; 87.6.9   created by K.handa
+;;; (Note: following comment obsolete -- mrb)
+
+;;; IMPORTANT NOTICE -- DON'T EDIT THIS FILE!!!
+;;;  Keep this file unmodified for further patches being applied successfully.
+;;;  All language specific basic environments are defined here.
+;;;  By default, Japanese is set as the primary environment.
+;;;  You can change primary environment in `./lisp/site-init.el by
+;;;  `set-primary-environment'.  For instance,
+;;;  	(set-primary-environment 'chinese)
+;;;  makes Chinese the primary environment.
+;;;  If you are still not satisfied with the settings, you can
+;;;  override them after the above line.  For instance,
+;;;  	(set-default-file-coding-system 'big5)
+;;;  makes big5 be used for file I/O by default.
+;;;  If you are not satisfied with other default settings in this file,
+;;;  override any of them also in `./lisp/site-init.el'.  For instance,
+;;;	(define-program-coding-system nil ".*mail.*" 'iso-8859-1)
+;;;  makes the coding-system 'iso-8859-1 be used in mail.
+
+
+;;;; GLOBAL ENVIRONMENT SETUP
+(require 'cl)
+
+
+(setq language-environment-list
+      (sort (language-environment-list) 'string-lessp))
+
+(defvar mule-keymap (make-sparse-keymap) "Keymap for Mule specific commands.")
+(fset 'mule-prefix mule-keymap)
+
+(define-key ctl-x-map "\C-k" 'mule-prefix)
+
+;; Alternative key definitions
+;; Original mapping will be altered by set-keyboard-coding-system.
+(define-key global-map [(meta \#)] 'ispell-word)	;originally "$"
+;; (define-key global-map [(meta {)] 'insert-parentheses) ;originally "("
+
+;; Following line isn't mule-specific --mrb
+;;(setq-default modeline-buffer-identification '("XEmacs: %17b"))
+
+(defconst modeline-multibyte-status '("%C")
+  "Modeline control for showing multibyte extension status.")
+
+;; override the default value defined in loaddefs.el.
+(setq-default modeline-format
+  (cons (purecopy "")
+	(cons 'modeline-multibyte-status
+	      (cdr modeline-format))))
+
+(define-key mule-keymap "f" 'set-file-coding-system)
+(define-key mule-keymap "i" 'set-keyboard-coding-system)
+(define-key mule-keymap "d" 'set-terminal-coding-system)
+(define-key mule-keymap "p" 'set-current-process-coding-system)
+(define-key mule-keymap "F" 'set-default-file-coding-system)
+(define-key mule-keymap "P" 'set-default-process-coding-system)
+(define-key mule-keymap "c" 'list-coding-system-briefly)
+(define-key mule-keymap "C" 'list-coding-system)
+(define-key mule-keymap "r" 'toggle-display-direction)
+
+(define-key help-map "T" 'help-with-tutorial-for-mule)
+
+(defvar help-with-tutorial-language-alist
+  '(("Japanese" . ".jp")
+    ("Korean"   . ".kr")
+    ("Thai"     . ".th")))
+
+(defun help-with-tutorial-for-mule (language)
+  "Select the Mule learn-by-doing tutorial."
+  (interactive (list (let ((completion-ignore-case t)
+			   lang)
+		       (completing-read
+			"Language: "
+			help-with-tutorial-language-alist))))
+  (setq language (cdr (assoc language help-with-tutorial-language-alist)))
+  (help-with-tutorial (concat "mule/TUTORIAL" (or language ""))))
+
+(defvar auto-language-alist
+  '(("^ja" . japanese)
+    ("^zh" . chinese)
+    ("^ko" . korean))
+  "Alist of LANG patterns vs. corresponding language environment.
+Each element looks like (REGEXP . LANGUAGE-ENVIRONMENT).
+It the value of the environment variable LANG matches the regexp REGEXP,
+then `set-language-environment' is called with LANGUAGE-ENVIRONMENT.")
+  
+(defun init-mule ()
+  "Initialize MULE environment at startup.  Don't call this."
+  (let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG"))))
+    (unless (or (null lang) (string-equal "C" lang))
+      (let ((case-fold-search t))
+        (loop for elt in auto-language-alist
+              if (string-match (car elt) lang)
+              return (set-language-environment (cdr elt))))
+
+      ;; Load a (localizable) locale-specific init file, if it exists.
+      (load (format "locale/%s/locale-start" lang) t t)))
+
+  (when (current-language-environment)
+    ;; Translate remaining args on command line using pathname-coding-system
+    (loop for arg in-ref command-line-args-left do
+	  (setf arg (decode-coding-string arg pathname-coding-system)))
+  
+    ;; Make sure ls -l output is readable by dired and encoded using
+    ;; pathname-coding-system
+    (add-hook
+     'dired-mode-hook
+     (lambda ()
+       (make-local-variable 'process-output-coding-system)
+       (make-local-variable 'process-input-coding-system)
+       (setq process-output-coding-system pathname-coding-system)
+       (setq process-input-coding-system  pathname-coding-system)
+       (make-local-variable 'process-environment)
+       (setenv "LC_MESSAGES" "C")
+       (setenv "LC_TIME"     "C"))))
+  )
+
+(add-hook 'before-init-hook 'init-mule)
+
+;;;;; Enable the tm package by default
+;;(defun init-mule-tm ()
+;;  "Load MIME (TM) support for GNUS, VM, MH-E, and RMAIL."
+;;  (load "mime-setup"))
+
+;;(add-hook 'after-init-hook 'init-mule-tm)
+
+;;; mule-init.el ends here