1446476ec8
Originally were in user config directory git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@13558 a95241bf-73f2-0310-859d-f6bbb57e9c96
92 lines
3.2 KiB
Plaintext
92 lines
3.2 KiB
Plaintext
;; Copyright 1993 NEC Corporation, Tokyo, Japan.
|
|
;;
|
|
;; Permission to use, copy, modify, distribute and sell this software
|
|
;; and its documentation for any purpose is hereby granted without
|
|
;; fee, provided that the above copyright notice appear in all copies
|
|
;; and that both that copyright notice and this permission notice
|
|
;; appear in supporting documentation, and that the name of NEC
|
|
;; Corporation not be used in advertising or publicity pertaining to
|
|
;; distribution of the software without specific, written prior
|
|
;; permission. NEC Corporation makes no representations about the
|
|
;; suitability of this software for any purpose. It is provided "as
|
|
;; is" without express or implied warranty.
|
|
;;
|
|
;; NEC CORPORATION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
|
|
;; INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN
|
|
;; NO EVENT SHALL NEC CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
|
|
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
|
|
;; USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
|
|
;; OTHER TORTUOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
;; PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
;; $Id: tut.canna,v 1.4 1996/10/25 05:23:01 kon Exp $
|
|
|
|
; customize file for TUT-code
|
|
;
|
|
; 『かんな』で TUT コード入力を行うためのファイルです。
|
|
;
|
|
; このカスタマイズファイルを使って TUT コードで入力するには
|
|
; 以下のようにします。
|
|
;
|
|
; C-o アルファベット入力モードと TUT コード入力モードを切替
|
|
; えます。
|
|
; 大文字
|
|
; TUT の入力を大文字から始めると、そこからの入力は一旦
|
|
; 日本語入力バッファに取り込まれます。日本語入力バッファ
|
|
; に取り込まれた文字は、かな漢字変換、カナ変換の対象と
|
|
; なります。日本語入力バッファに取り込まれた文字に対す
|
|
; る操作は基本的には『かんな』のデフォルトの操作に準じ
|
|
; ます。以下はその例の一部です。
|
|
; SPC 変換(仮)。かな漢字変換します。
|
|
; C-n 字種変換。C-n を打つと、全角カナ、半角カナ、全角ロー
|
|
; マ字、半角ローマ字と入力した文字を変換します。
|
|
; C-p C-n の逆回り変換です。
|
|
; C-w 部首変換。入力した読みを部首名に持つ漢字の一覧を表示
|
|
; します。
|
|
; C-y 入力した数字を漢字コードとする漢字に変換します。
|
|
|
|
(initialize-function '(japanese-mode base-kakutei alpha-mode))
|
|
|
|
(setq romkana-table "tut.cbp")
|
|
(setq romaji-yuusen t)
|
|
|
|
(use-dictionary
|
|
"iroha"
|
|
"fuzokugo"
|
|
"hojomwd"
|
|
"hojoswd"
|
|
:bushu "bushu"
|
|
:user "user"
|
|
)
|
|
|
|
(set-mode-display 'yomi-mode "[TUT ]")
|
|
(set-mode-display 'zen-hira-henkan-mode "[TUT ]")
|
|
(set-mode-display 'zen-hira-kakutei-mode "[TUT ]")
|
|
|
|
(set-key 'empty-mode "\Space" 'self-insert)
|
|
;(set-key 'henkan-nyuuryoku-mode "q" 'base-hiragana-katakana-toggle)
|
|
|
|
(defun define-as-capital (x)
|
|
(set-key 'empty-mode x
|
|
'(temporary base-hiragana base-henkan self-insert)))
|
|
|
|
(setq ignore-case t)
|
|
|
|
(defun define-capitals (l)
|
|
(cond ((atom l) nil)
|
|
(t
|
|
(define-as-capital (car l))
|
|
(define-capitals (cdr l)) )))
|
|
|
|
(setq tut-capitals '(
|
|
"A" "E" "I" "O" "U"
|
|
"H" "K" "M" "N" "R" "S" "T" "W" "Y"
|
|
"B" "D" "G" "P" "Z"
|
|
"C" "F" "J" "V" "X"
|
|
"L" "Q"))
|
|
|
|
(define-capitals tut-capitals)
|
|
|
|
(setq allow-next-input t)
|
|
(setq hex-direct t)
|