Re: Japanese locale configuration

[Tatsuya Kinoshita <tats@iris.ne.jp>]

On September 26, 2002 at 7:58PM +0900,
jean-christophe helary <suzume@mx82.tiki.ne.jp> wrote:

> is there a way to make it type french under my sloppy fingers ?

Try `/usr/bin/env LC_ALL=fr_FR EDITOR=emacs mutt' with the
following configuration:

---- 
;;; .emacs  -*- mode: emacs-lisp; -*-
;; This is a part of Tatsuya Kinoshita's ~/.emacs.  Copyright is disclaimed.

(when (featurep 'mule)
  (let (locale)
    (let ((vars '("LC_ALL" "LC_CTYPE" "LANG")))
      (while (and vars (not (setq locale (getenv (car vars)))))
	(setq vars (cdr vars))))
    (cond
     ((and (stringp locale) (string-match "^ja\\>" locale))
      (set-language-environment "Japanese")
      (if (fboundp 'skk-mode) (setq default-input-method "japanese-skk"))
      (prefer-coding-system 'shift_jis)
      (prefer-coding-system 'euc-japan)
      (set-default-coding-systems 'euc-japan)
      (set-terminal-coding-system 'euc-japan))
     (t
      (set-language-environment "Latin-1")
      (setq default-input-method "latin-1-prefix")
      (prefer-coding-system 'iso-8859-1)
      (set-default-coding-systems 'iso-8859-1)
      (set-terminal-coding-system 'iso-8859-1)))))

(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\C-x?" 'help-command)
;;(global-set-key "\C-z" 'scroll-down)
;;(global-set-key "\C-xz" 'shell-command)

;;; .emacs ends here
---- 

In Emacs on a normal console, I can input the Latin-1 characters
(e.g. ['] and [a] -> a with acute) after toggle-input-method
([Ctrl] + [\]).

-- 
Tatsuya Kinoshita