284 lines
9.2 KiB
Plaintext
284 lines
9.2 KiB
Plaintext
|
;; Copyright 1992 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.
|
|||
|
|
|
|||
|
|
;; Using this customize file gives you a Japanese Input Interface
|
|||
|
|
;; like ichitaro does.
|
|||
|
|
|
|||
|
|
;; @(#) 102.1 $Id: just.canna,v 2.10 1996/10/25 05:22:54 kon Exp $
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;; <20><>ĥ<EFBFBD><C4A5><EFBFBD>˥塼<CBA5>ޤ<F2A4A2A4><DEA4>Ȥ<EFBFBD><C8A4>ʤ<EFBFBD><CAA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϡ<EFBFBD>do-not-use-extend-mode <20><>
|
|||
|
|
;;; t <20><><EFBFBD><EFBFBD><EFBFBD>ꤷ<EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
(setq do-not-use-extend-mode nil)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
(setq romkana-table "just.cbp")
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;; <20><><EFBFBD>Ѥ<EFBFBD><D1A4>뼭<EFBFBD><EBBCAD>
|
|||
|
|
|
|||
|
|
(use-dictionary
|
|||
|
|
"iroha"
|
|||
|
|
"fuzokugo"
|
|||
|
|
"hojomwd"
|
|||
|
|
"hojoswd"
|
|||
|
|
:bushu "bushu"
|
|||
|
|
:user "user"
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
;<3B><><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD> on <20>ˤ<EFBFBD><CBA4>롣
|
|||
|
|
(set-key 'alpha-mode "\C-Xfer" 'japanese-mode)
|
|||
|
|
|
|||
|
|
; <20><>ü<EFBFBD>DZ<EFBFBD><C7B1>˹Ԥ<CBB9><D4A4><EFBFBD><EFBFBD>Ȥ<EFBFBD><C8A4><EFBFBD><EFBFBD>Ⱥ<EFBFBD>ü<EFBFBD>ˤ<EFBFBD><CBA4><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
(setq cursor-wrap t) ; default t
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD><EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD>ǿ<EFBFBD><C7BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǥä<C7A4><C3A4>Ȥ<EFBFBD><C8A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤǤ<DEA4><C7A4>롣
|
|||
|
|
(setq select-direct t) ; default t
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD><EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD>ǿ<EFBFBD><C7BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>롣
|
|||
|
|
(setq numerical-key-select t) ; default t
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD>ñ<EFBFBD>̤ǥ<CCA4><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ư<EFBFBD><C6B0><EFBFBD>롣
|
|||
|
|
(setq character-based-move nil) ; default t
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD>Τ<EFBFBD><CEA4><EFBFBD><EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʤ<EFBFBD><CAA4><EFBFBD>
|
|||
|
|
(setq reverse-widely nil) ; default nil
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD>ٳؽ<D9B3><D8BD>롣
|
|||
|
|
(setq gakushu t) ; default t
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD><EFBFBD><EFBFBD>κǸ<CEBA><C7B8>ޤǤ<DEA4><C7A4>ä<EFBFBD><C3A4>顢<EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>Ƭ<EFBFBD>θ<EFBFBD><CEB8><EFBFBD><EFBFBD><EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD><EFBFBD><EFBFBD>롣
|
|||
|
|
(setq quit-if-end-of-ichiran nil) ; default nil
|
|||
|
|
|
|||
|
|
; ʸ<><CAB8><EFBFBD>α<EFBFBD>ü<EFBFBD>DZ<EFBFBD><C7B1><EFBFBD>ư<EFBFBD><EFBFBD><F2A4B9A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Τ<EFBFBD><CEA4><EFBFBD><EFBFBD>ꤹ<EFBFBD>롣
|
|||
|
|
(setq kakutei-if-end-of-bunsetsu t) ; default nil
|
|||
|
|
|
|||
|
|
; <20>ɤߤ<C9A4><DFA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˥Хå<D0A5><C3A5><EFBFBD><EFBFBD>ڡ<EFBFBD><DAA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǤĤ<C7A4>ʸ<EFBFBD><CAB8><EFBFBD>١<EFBFBD><D9A1><EFBFBD><EFBFBD>Ǻ<EFBFBD><C7BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4><EFBFBD>
|
|||
|
|
(setq break-into-roman nil) ; default nil
|
|||
|
|
|
|||
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>ȤҤȤ<D2A4><C8A4><EFBFBD><EFBFBD><EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD>˰<EFBFBD>ư<EFBFBD><C6B0><EFBFBD>롣
|
|||
|
|
(setq stay-after-validate nil) ; default t
|
|||
|
|
|
|||
|
|
; 2 <20><><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><F2B2A1A4>Ȱ<EFBFBD><C8B0><EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4><EFBFBD>
|
|||
|
|
(setq n-henkan-for-ichiran 2) ; default 2
|
|||
|
|
|
|||
|
|
; <20><><EFBFBD>䤬<EFBFBD><E4A4AC><EFBFBD>Τβ<CEA4><CEB2><EFBFBD><EFBFBD>ܤ<EFBFBD><DCA4><EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD><EFBFBD><EFBFBD>롣
|
|||
|
|
(setq kouho-count t) ; default t
|
|||
|
|
|
|||
|
|
; ñ<><C3B1><EFBFBD><EFBFBD>Ͽ/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ľ<EFBFBD><C4BE><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD>νФ<F1A4ADBD><D0A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԥ<EFBFBD>
|
|||
|
|
(setq auto-sync t) ; default t
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD><EFBFBD><EFBFBD>ޥå<DEA5>
|
|||
|
|
|
|||
|
|
(global-unbind-key-function 'extend)
|
|||
|
|
(global-unbind-key-function 'shrink)
|
|||
|
|
(global-unbind-key-function 'forward)
|
|||
|
|
(global-unbind-key-function 'backward)
|
|||
|
|
(global-unbind-key-function 'previous)
|
|||
|
|
(global-unbind-key-function 'next)
|
|||
|
|
(global-unbind-key-function 'beginning-of-line)
|
|||
|
|
(global-unbind-key-function 'end-of-line)
|
|||
|
|
(global-unbind-key-function 'kill-to-end-of-line)
|
|||
|
|
|
|||
|
|
|
|||
|
|
(global-set-key "\Backspace" 'delete-previous)
|
|||
|
|
(global-set-key "\C-l" 'extend)
|
|||
|
|
(global-set-key "\C-k" 'shrink)
|
|||
|
|
(global-set-key "\Right" 'forward)
|
|||
|
|
(global-set-key "\C-d" 'forward)
|
|||
|
|
(global-set-key "\Left" 'backward)
|
|||
|
|
(global-set-key "\C-s" 'backward)
|
|||
|
|
(global-set-key "\C-Left" 'beginning-of-line)
|
|||
|
|
(global-set-key "\C-a" 'beginning-of-line)
|
|||
|
|
(global-set-key "\C-Right" 'end-of-line)
|
|||
|
|
(global-set-key "\C-f" 'end-of-line)
|
|||
|
|
(global-set-key "\Up" 'previous)
|
|||
|
|
(global-set-key "\C-n" 'next)
|
|||
|
|
(global-set-key "\Down" 'next)
|
|||
|
|
(global-set-key "\Return" 'kakutei)
|
|||
|
|
(global-set-key "\Escape" 'quit)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD>ϥ⡼<CFA5>ɤ<EFBFBD><C9A4><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
(defmode zenkaku-hiragana-mode " <20><><EFBFBD><EFBFBD> " romkana-table '(zenkaku hiragana kakutei) t)
|
|||
|
|
(defmode zenkaku-katakana-mode " <20><><EFBFBD><EFBFBD> " romkana-table '(zenkaku katakana kakutei) t)
|
|||
|
|
(defmode hankaku-katakana-mode " <20><> <20><> " romkana-table '(hankaku katakana kakutei) t)
|
|||
|
|
(defmode zenkaku-eisu-mode " <20><><EFBFBD><EFBFBD> " nil '(zenkaku kakutei) nil)
|
|||
|
|
(defmode hankaku-eisu-mode " A <20><> " nil '(hankaku kakutei) nil)
|
|||
|
|
|
|||
|
|
(set-key 'empty-mode "\C-Nfer" 'zenkaku-katakana-mode)
|
|||
|
|
(set-key 'zenkaku-katakana-mode "\C-Nfer" 'hankaku-katakana-mode)
|
|||
|
|
(set-key 'hankaku-katakana-mode "\C-Nfer" 'zenkaku-hiragana-mode)
|
|||
|
|
(set-key 'zenkaku-hiragana-mode "\C-Nfer" 'henkan-nyuuryoku-mode)
|
|||
|
|
|
|||
|
|
(set-key 'empty-mode "\S-Nfer" 'zenkaku-eisu-mode)
|
|||
|
|
(set-key 'zenkaku-eisu-mode "\S-Nfer" 'hankaku-eisu-mode)
|
|||
|
|
(set-key 'hankaku-eisu-mode "\S-Nfer" 'henkan-nyuuryoku-mode)
|
|||
|
|
|
|||
|
|
(global-set-key "\Nfer" 'henkan-nyuuryoku-mode)
|
|||
|
|
(set-key 'henkan-nyuuryoku-mode "\Nfer" 'hankaku-eisu-mode)
|
|||
|
|
|
|||
|
|
(set-key 'empty-mode "\F10" 'kigou-mode)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20>ɤߥ⡼<DFA5>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'yomi-mode))
|
|||
|
|
(set-key mode "\Delete" 'delete-next)
|
|||
|
|
(set-key mode "\C-u" 'hiragana)
|
|||
|
|
(set-key mode "\F6" 'hiragana)
|
|||
|
|
(set-key mode "\C-i" 'katakana)
|
|||
|
|
(set-key mode "\F7" 'katakana)
|
|||
|
|
(set-key mode "\C-o" 'hankaku)
|
|||
|
|
(set-key mode "\F8" 'hankaku)
|
|||
|
|
(set-key mode "\C-p" 'romaji)
|
|||
|
|
(set-key mode "\F9" 'romaji)
|
|||
|
|
(set-key mode "\C-l" 'forward)
|
|||
|
|
(set-key mode "\C-k" 'backward)
|
|||
|
|
(set-key mode "\Space" 'henkan)
|
|||
|
|
(set-key mode "\Xfer" 'henkan)
|
|||
|
|
(set-key mode "\C-n" 'kakutei)
|
|||
|
|
(set-key mode "\Down" 'kakutei)
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; ñ<><C3B1><EFBFBD><EFBFBD><EFBFBD>⡼<EFBFBD>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'tankouho-mode))
|
|||
|
|
(set-key mode "\S-Right" 'forward)
|
|||
|
|
(set-key mode "\S-Left" 'backward)
|
|||
|
|
(set-key mode "\C-u" 'hiragana)
|
|||
|
|
(set-key mode "\F6" 'hiragana)
|
|||
|
|
(set-key mode "\C-i" 'katakana)
|
|||
|
|
(set-key mode "\F7" 'katakana)
|
|||
|
|
(set-key mode "\C-o" 'hankaku)
|
|||
|
|
(set-key mode "\F8" 'hankaku)
|
|||
|
|
(set-key mode "\C-p" 'romaji)
|
|||
|
|
(set-key mode "\F9" 'romaji)
|
|||
|
|
(set-key mode "\C-n" 'forward)
|
|||
|
|
(set-key mode "\Down" 'forward)
|
|||
|
|
(set-key mode "\Right" '(shinshuku-mode extend))
|
|||
|
|
(set-key mode "\C-l" '(shinshuku-mode extend))
|
|||
|
|
(set-key mode "\Left" '(shinshuku-mode shrink))
|
|||
|
|
(set-key mode "\C-k" '(shinshuku-mode shrink))
|
|||
|
|
(set-key mode "\Xfer" 'kouho-ichiran)
|
|||
|
|
(set-key mode "\Space" 'henkan)
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; ʸ<><CAB8><EFBFBD><EFBFBD><EFBFBD>⡼<EFBFBD>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'mojishu-mode))
|
|||
|
|
(set-key mode "\C-u" 'hiragana)
|
|||
|
|
(set-key mode "\F6" 'hiragana)
|
|||
|
|
(set-key mode "\C-i" 'katakana)
|
|||
|
|
(set-key mode "\F7" 'katakana)
|
|||
|
|
(set-key mode "\C-o" 'hankaku)
|
|||
|
|
(set-key mode "\F8" 'hankaku)
|
|||
|
|
(set-key mode "\C-p" 'romaji)
|
|||
|
|
(set-key mode "\F9" 'romaji)
|
|||
|
|
(set-key mode "\C-n" 'forward)
|
|||
|
|
(set-key mode "\Down" 'forward)
|
|||
|
|
(set-key mode "\Right" 'extend)
|
|||
|
|
(set-key mode "\Left" 'shrink)
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⡼<EFBFBD>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'ichiran-mode))
|
|||
|
|
(set-key mode "\S-Xfer" 'previous)
|
|||
|
|
(set-key mode "\Xfer" 'next)
|
|||
|
|
(set-key mode "\Space" 'forward)
|
|||
|
|
(if do-not-use-extend-mode
|
|||
|
|
(progn
|
|||
|
|
(set-key mode "\Up" 'backward)
|
|||
|
|
(set-key mode "\C-n" 'kakutei)
|
|||
|
|
(set-key mode "\Down" 'kakutei)
|
|||
|
|
(set-key mode "\Right" '(quit shinshuku-mode extend))
|
|||
|
|
(set-key mode "\C-l" '(quit shinshuku-mode extend))
|
|||
|
|
(set-key mode "\Left" '(quit shinshuku-mode shrink)))
|
|||
|
|
(set-key mode "\C-k" '(quit shinshuku-mode shrink))
|
|||
|
|
(progn
|
|||
|
|
(set-key mode "\C-l" 'forward)
|
|||
|
|
(set-key mode "\C-k" 'backward)))
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϥ⡼<CFA5>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'kigou-mode))
|
|||
|
|
(set-key mode "\C-l" 'forward)
|
|||
|
|
(set-key mode "\Space" 'forward)
|
|||
|
|
(set-key mode "\C-k" 'backward)
|
|||
|
|
(set-key mode "\S-Xfer" 'previous)
|
|||
|
|
(set-key mode "\Xfer" 'next)
|
|||
|
|
(if do-not-use-extend-mode
|
|||
|
|
(progn
|
|||
|
|
(set-key mode "\Up" 'backward)
|
|||
|
|
(set-key mode "\C-n" 'kakutei)
|
|||
|
|
(set-key mode "\Down" 'kakutei)))
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD>̥⡼<CCA5>ɻ<EFBFBD>
|
|||
|
|
|
|||
|
|
(let ((mode 'shinshuku-mode))
|
|||
|
|
(set-key mode "\C-u" '(henkan hiragana))
|
|||
|
|
(set-key mode "\F6" '(henkan hiragana))
|
|||
|
|
(set-key mode "\C-i" '(henkan katakana))
|
|||
|
|
(set-key mode "\F7" '(henkan katakana))
|
|||
|
|
(set-key mode "\C-o" '(henkan hankaku))
|
|||
|
|
(set-key mode "\F8" '(henkan hankaku))
|
|||
|
|
(set-key mode "\C-p" '(henkan romaji))
|
|||
|
|
(set-key mode "\F9" '(henkan romaji))
|
|||
|
|
(set-key mode "\Right" 'extend)
|
|||
|
|
(set-key mode "\Left" 'shrink)
|
|||
|
|
(set-key mode "\C-n" 'forward)
|
|||
|
|
(set-key mode "\Down" 'forward)
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20>⡼<EFBFBD><E2A1BC>ɽ<EFBFBD><C9BD>
|
|||
|
|
|
|||
|
|
(set-mode-display 'empty-mode " <20><>Ϣ ")
|
|||
|
|
(set-mode-display 'yomi-mode " <20><>Ϣ ")
|
|||
|
|
(set-mode-display 'henkan-nyuuryoku-mode " <20><>Ϣ ")
|
|||
|
|
(set-mode-display 'chikuji-yomi-mode " <20><><EFBFBD><EFBFBD> ")
|
|||
|
|
(set-mode-display 'chikuji-bunsetsu-mode " <20><><EFBFBD><EFBFBD> ")
|
|||
|
|
|
|||
|
|
|
|||
|
|
;; <20><><EFBFBD><EFBFBD><EFBFBD>ܥ<EFBFBD><DCA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
(defsymbol
|
|||
|
|
?, "<22><>" "<22><>")
|
|||
|
|
(defsymbol
|
|||
|
|
?. "<22><>" "<22><>")
|
|||
|
|
(defsymbol
|
|||
|
|
?[ "<22><>" "<22><>"
|
|||
|
|
?] "<22><>" "<22><>")
|
|||
|
|
(defsymbol
|
|||
|
|
?/ "<22><>" "<22><>")
|