libcanna1g 3.7p3-14 / usr / share / canna / unix.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.6 2003/09/25 15:24:33 aida_s Exp $

;; µ­¹æÃÖ¤­´¹¤¨ÊÑ´¹¤òÍøÍѤ¹¤ë¤«¡£

(setq use-symbolic-definition t)

;;; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤ÎÀßÄê
;
; ¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¥Æ¡¼¥Ö¥ë¤ò»ØÄꤷ¤Þ¤¹¡£¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¥Æ¡¼¥Ö¥ë¤Ï
; (1) ¥«¥ì¥ó¥È¥Ç¥£¥ì¥¯¥È¥ê
; (2) ¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê
; (3)  CANNALIBDIR/dic  (CANNALIBDIR ¤Ï¡¢Î㤨¤Ð /usr/lib/canna ¤Ç¤¹)
; ¤Î½ç¤Ë¥µ¡¼¥Á¤µ¤ì¤Þ¤¹¡£
;

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

;; ³°Íè¸ìÊÑ´¹
;(setq english-table "english.cbp")


;;; ÍøÍѤ¹¤ë¼­½ñ
;
; ¤¿¤Àñ¤Ë½ñ¤­Ê¤٤Ƥ¤¤ë¤Î¤Ïñ¸ìÅÐÏ¿¤ò¹Ô¤ï¤Ê¤¤¼­½ñ¤Ç¥·¥¹¥Æ¥à¼­½ñ¤Ê¤É¤¬
; ¤³¤ì¤ËÅö¤¿¤ê¤Þ¤¹¡£
;
; Éô¼ó¼­½ñ¤Ë´Ø¤·¤Æ¤Ï :bushu ¤òÀè¹Ô¤µ¤»¤Æµ­½Ò¤·¤Þ¤¹¡£
;
; ñ¸ìÅÐÏ¿¤ò¤·¤¿¤¤¼­½ñ¤Ë´Ø¤·¤Æ¤Ï :user ¤òÀè¹Ô¤µ¤»¤Æµ­½Ò¤·¤Þ¤¹¡£Ã±¸ìÅÐ
; Ï¿¤ò¤¹¤ë¼­½ñ¤Ï¥Æ¥­¥¹¥È·Á¼°¼­½ñ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Ã±¸ìÅÐÏ¿¤µ¤»¤¿¤¤
; ¼­½ñ¤Ï mkdic user ¤ÎÍͤʥ³¥Þ¥ó¥É¤òÂǤĤ³¤È¤Ç´Êñ¤ËºîÀ®¤¹¤ë¤³¤È¤¬¤Ç
; ¤­¤Þ¤¹¡£
;
; :katanana ¤òÀè¹Ô¤µ¤»¤Æµ­½Ò¤·¤¿¼­½ñ¤Ï¡¢¥«¥¿¥«¥Ê¸ì¤Î¼«Æ°ÅÐÏ¿¼­½ñ¤Ë
; ¤Ê¤ê¤Þ¤¹¡£»ú¼ïÊÑ´¹¤Ç¥«¥¿¥«¥Ê¤ËÊÑ´¹¤·¤Æ³ÎÄꤹ¤ë¤È¡¢¼«Æ°Åª¤Ë¥µÊÑ
; ̾»ì¤È¤·¤ÆÅÐÏ¿¤µ¤ì¤Þ¤¹¡£
;
(use-dictionary
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 :bushu "bushu"
 :user  "user"
 :katakana "katakana"
 )

;;; ¤µ¤Þ¤¶¤Þ¤Ê¥Ñ¥é¥á¥¿¤ÎÀßÄê
;
; ¿¿ÍýÃͤòÀßÄꤹ¤ë¤â¤Î¤Ë¤Ä¤¤¤Æ¤Ï¿¿¤Ë¤Ä¤¤¤Æ¤Ï 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

; ²¿²ó¤ÎÊÑ´¹¥­¡¼¤Ç°ìÍ÷ɽ¼¨¤ò¹Ô¤¦¤«¡£0¤òÆþ¤ì¤ë¤ÈÊÑ´¹¥­¡¼¤À¤±¤Ç¤Ï
; °ìÍ÷ɽ¼¨¤Ë¤Ï°Ü¤ê¤Þ¤»¤ó¡£¤½¤Î¾ì¹ç¤Ë¤Ï C-w ¤òÆþÎϤ·¤Æ°ìÍ÷ɽ¼¨¤·¤Æ
; ²¼¤µ¤¤¡£
(setq n-henkan-for-ichiran 2)	; default 2

; ñ¸ìÅÐÏ¿»þ¤Ëʸˡ´ØÏ¢¤Î¼ÁÌä¤ò¤¹¤ë¤«(t)¡£nil¤Î»þ¤ÏŬÅö¤ÊÉÊ»ì¤òÉÕ¤±¤Æ¤·
; ¤Þ¤¤¤Þ¤¹¡£
(setq grammatical-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

; ºÇ½é¤ÎÊÑ´¹¤Î»þ¤Þ¤Ç¥µ¡¼¥Ð¤Ø¤ÎÀܳ¤òÃٱ䤹¤ë¤«
(setq delay-connect t)			; default nil

; °ìʸ»ú¥ì¥Ù¥ë¤Î¥í¡¼¥Þ»ú¤«¤ÊÊÑ´¹¤ÎÊä½õ¥Æ¡¼¥Ö¥ë
(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 ?\" "\"" "¡É")
      (defsymbol ?~ "~" "¡±" "¡Á")
      ))

;; delete ¥­¡¼¤â¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤ÈƱ¤¸½èÍý¤ò¤µ¤»¤ë
(global-set-key "\Delete" 'delete-previous) ; necessary in using Emacs

;; Help ¤¬¤Ê¤¤¿Í¤â¤¤¤ë¤Î¤Ç F1 ¤Ç¤âƱ¤¸Æ°ºî¤ò¤µ¤»¤ë¡£
(global-set-key "\F1" 'extend-mode)