.canna

多用户银行系统

;; 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: unix.canna,v 1.4 1996/10/25 05:23:02 kon Exp $

;; 淡规弥き垂え恃垂を网脱するか。

(setq use-symbolic-definition t)

;;; ロ〖マ机かな恃垂の肋年
;
; ロ〖マ机かな恃垂テ〖ブルを回年します。ロ〖マ机かな恃垂テ〖ブルは
; (1) カレントディレクトリ
; (2) ホ〖ムディレクトリ
; (3) /usr/lib/canna/dic
; の界にサ〖チされます。
;

;(setq romkana-table "unix.cbp")
(setq romkana-table "default.cbp")

;; 嘲丸胳恃垂
;(setq english-table "canna/english.cbp")


;;; 网脱する辑今
;
; ただ帽に今き事べているのは帽胳判峡を乖わない辑今でシステム辑今などが
; これに碰たります。
;
; 婶俭辑今に簇しては :bushu を黎乖させて淡揭します。
;
; 帽胳判峡をしたい辑今に簇しては :user を黎乖させて淡揭します。帽胳判
; 峡をする辑今はテキスト妨及辑今でなければなりません。帽胳判峡させたい
; 辑今は mkdic user の屯なコマンドを虑つことでで词帽に侯喇することがで
; きます。
;
(use-dictionary
 "gcanna"
 "chimei"
; "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 "software"
 "keishiki"
 "zipcode"
 "geo"
; "zip99"
 "basho"
 "keisan"
 "pub"
 "scien"
 "sup"
 "bonobo"
 :bushu "bushu"
 :user  "user"
 )

;;; さまざまなパラメタの肋年
;
; 靠妄猛を肋年するものについては靠については t 、刀については nil を肋
; 年します。

; 办戎宝で宝に乖こうとすると焊眉にいくようにするか
(setq cursor-wrap          t)	; default t

; 办枉山绩で眶机を虑ったときにカ〖ソル败瓢に伪める(nil)か联买までして
; しまうか(t)
(setq select-direct        t)	; default t

; 办枉山绩で眶机で联买するか(t)。nilの箕は眶机が山绩されません
(setq numerical-key-select t)	; default t

; 铬输山绩箕に矢泪の惰磊りに鄂球をいれるか
(setq bunsetsu-kugiri nil)      ; default nil

; 矢机ベ〖スの败瓢をするか(t)。 nilの箕はロ〖マ机かな恃垂の帽疤でカ〖
; ソル败瓢が乖われます。
(setq character-based-move t)	; default t

; 掐蜗面の粕み链挛をリバ〖スするか
(setq reverse-widely       nil)	; default nil

; 裳刨池浆をするか
(setq gakushu              t)	; default t

; 办枉の呵稿までいったら办枚办枉山绩をやめるか
(setq quit-if-end-of-ichiran nil); default nil

; 矢泪の宝眉で宝败瓢をすると链挛が澄年してしまうか
(setq kakutei-if-end-of-bunsetsu nil) ; default nil

; 办枉联买稿票じ矢泪にとどまるか(t)。nilの箕は办枉联买を乖うとひとつ黎
; の矢泪に败瓢します。
(setq stay-after-validate  t)	; default t

; 粕みを掐蜗面にバックスペ〖スを虑つとロ〖マ机までバラバラにするか
(setq break-into-roman     t)	; default nil

; 部搀の恃垂キ〖で办枉山绩を乖うか。０を掐れると恃垂キ〖だけでは
; 办枉山绩には败りません。その眷圭には C-w を掐蜗して办枉山绩して
; 布さい。
(setq n-henkan-for-ichiran 2)	; default 2

; 帽胳判峡箕に矢恕簇息の剂啼をするか(t)。nilの箕は努碰な墒混を烧けてし
; まいます。
(setq gramatical-question  t)	; default t

; 铬输が链挛の部戎誊かを山绩するか
(setq kouho-count t)            ; default t

; 绵肌恃垂をするか
(setq auto nil)                 ; default nil

; 绵肌恃垂をする箕に部改の矢泪までを踏澄年で瘦积するか
(setq n-kouho-bunsetsu 16)      ; default 16

; ロ〖マ机かな恃垂でイリ〖ガルなロ〖マ机を嘉てるか
(setq abandon-illegal-phonogram nil)              ; default nil

; 办枉の箕も肌の掐蜗を千めるか
(setq allow-next-input 		 t)	; default t

; 办矢机レベルのロ〖マ机かな恃垂の输锦テ〖ブル
(if use-symbolic-definition
    (progn
      (defsymbol ?-  "〖" "-" "≥" "【")
      (defsymbol ?/  "/"  "】"  "ˇ")
      (defsymbol ?\\ "\\" "±"  "★")
      (defsymbol
	?( "(" "∈" "≮"
	?) ")" "∷" "≯" )
      (defsymbol 
	?[ "≈" "∝" "∥" "√" "["
	?] "∽" "≠" "∠" "⊥" "]")
      (defsymbol 
	?. "。" "ˉ" "."
	?, "、" "·" "," )
      (defsymbol
	?0 "0" "０" "』" "雾"
	?1 "1" "１" "办" "绊"
	?2 "2" "２" "企" "契"
	?3 "3" "３" "话" "徊"
	?4 "4" "４" "煌" "煌"
	?5 "5" "５" "皋" "膏"
	?6 "6" "６" "匣" "匣"
	?7 "7" "７" "挤" "挤"
	?8 "8" "８" "痊" "痊"
	?9 "9" "９" "跺" "跺" )
      (defsymbol
	?? "?" "々"
	?! "!" "—")
      (defsymbol ?# "#" "◆")
      (defsymbol ?$ "$" "○")
      (defsymbol ?% "%" "◇")
      (defsymbol ?& "&" "□")
      (defsymbol ?+ "+" "≤")
      (defsymbol ?* "*" "■" "∵")
      (defsymbol ?_ "_" "〔")
      (defsymbol ?' "'" "∏")
      (defsymbol ?` "`" "∑")
      (defsymbol ?\" "\"" "∩")
      ))

;; delete キ〖もバックスペ〖スと票じ借妄をさせる
(global-set-key "\Delete" 'delete-previous) ; necessary in using Emacs

;; Help がない客もいるので F1 でも票じ瓢侯をさせる。
(global-set-key "\F1" 'extend-mode)

;; Ctrl-o の娃扩
(global-unbind-key-function 'japanese-mode)