source: projects/rootfiles/trunk/.canna @ 1127

;; 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: .canna,v 1.1.1.1 2004/06/20 18:00:44 daisuke 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"
 "gcannaf"
 "chimei"
; "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 "software"
 "keishiki"
 "zipcode"
 "geo"
 "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)