;; 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. 

;;  $Id: default.ca,v 1.4 1994/09/12 05:37:39 kuma Exp $

(setq romkana-table "script/canna/wxiia7.cbp")

(use-dictionary
 "gcannaf"
 "gcanna"
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 "keishiki"
 "station"
 :bushu "bushu"
;:katakana "katakana"
 :user "user"
 )


;; 一覧表示状態から、文字伸縮を行う。
(set-key 'ichiran-mode "\C-o" '(quit extend))
(set-key 'ichiran-mode "\C-i" '(quit shrink))
(setq stay-after-validate nil)
(setq allow-next-input t)
(setq index-hankaku t)
(setq kakutei-if-end-of-bunsetsu t)
(setq gakushu t)
(setq cursor-wrap nil)
(setq quit-if-end-of-ichiran t)
;;(setq auto t)				; 逐次自動変換
(setq inhibit-list-callback  t)
(setq chikuji-continue nil)
(setq renbun-continue nil)

(global-set-key "\C-t" 'katakana)
(global-set-key "\C-h" 'delete-previous)
(global-set-key "\Delete" 'delete-previous)


;; シンボルの定義
(defsymbol 
  ?[ "「" "『" "[" "［" "〔"
  ?] "」" "』" "]" "］" "〕" )


(defsymbol 
  ?. "。" "." "．"
  ?, "、" "," "，" )