tamago-4.0.1

[elisp/tamago.git] / its / hira.el

diff --git a/its/hira.el b/its/hira.el
index 502c362..86fd449 100644 (file)
--- a/its/hira.el
+++ b/its/hira.el
@@ -1,10 +1,8 @@
 ;;; its/hira.el --- Hiragana Input in Egg Input Method Architecture
 
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
 
-;; Author: Satoru Tomura <tomura@etl.go.jp>
-;;         jiro@math.keio.ac.jp (TANAKA Jiro)
+;; Author: NIIBE Yutaka <gniibe@chroot.org>
 
 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
 
@@ -40,18 +38,39 @@
 (eval-when (compile)
   (defconst its-compaction-enable t))
 
+(defgroup hira nil
+  "Hiragana Input Method"
+  :group 'its)
+
 (defvar its-hira-enable-zenkaku-alphabet
   (if (boundp 'its-enable-fullwidth-alphabet)
       its-enable-fullwidth-alphabet
     t)
   "*Enable Zenkaku alphabet")
 
-(defvar its-hira-enable-double-n nil "*Enable \"nn\" input for \"\e$B$s\e(B\" ")
-(defvar its-hira-period "\e$B!#\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
-(defvar its-hira-comma  "\e$B!"\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
-(defvar its-hira-open-bracket  "\e$B!V\e(B" "*[")  ; "\e$B!N\e(B"
-(defvar its-hira-close-bracket  "\e$B!W\e(B" "*]") ; "\e$B!O\e(B"
-(defvar its-hira-horizontal  "\e$B!<\e(B" "*-")    ; "\e$B!]\e(B"
+(defcustom its-hira-enable-double-n t
+  "*Enable \"nn\" input for \"\e$B$s\e(B\" "
+  :group 'hira :type 'boolean)
+
+(defcustom its-hira-period "\e$B!#\e(B" 
+  "* .(\e$B%T%j%*%I\e(B)\e$B$rF~NO$7$?$H$-$N6gE@$NJ8;z\e(B: \"\e$B!#\e(B\"  \". \" \"\e$B!%\e(B\""
+  :group 'hira :type 'string)
+
+(defcustom its-hira-comma  "\e$B!"\e(B"
+ "* ,(\e$B%3%s%^\e(B)\e$B$rF~NO$7$?$H$-$NFIE@$NJ8;z\e(B: \"\e$B!"\e(B\" \", \" \"\e$B!$\e(B\""
+  :group 'hira :type 'string)
+
+(defcustom its-hira-open-bracket  "\e$B!V\e(B"
+ "* [ \e$B$rF~NO$7$?$H$-$N$+$.3g8L3+$1$NJ8;z\e(B: \"\e$B!V\e(B\" \"\e$B!N\e(B\""
+  :group 'hira :type 'string)
+
+(defcustom its-hira-close-bracket "\e$B!W\e(B"
+ "* ] \e$B$rF~NO$7$?$H$-$N$+$.3g8LJD$8$NJ8;z\e(B: \"\e$B!W\e(B\" \"\e$B!O\e(B\""
+  :group 'hira :type 'string)
+
+(defcustom its-hira-horizontal  "\e$B!<\e(B"
+  "* - \e$B$rF~NO$7$?$H$-$ND92;5-9f$NJ8;z\e(B: \"\e$B!<\e(B\" \"\e$B!]\e(B\""
+  :group 'hira :type 'string)
 
 (define-its-state-machine its-hira-map
   "roma-kana" "\e$B$"\e(B" Japanese