egg-980315.

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

diff --git a/its/hira.el b/its/hira.el
index a08cec9..051dcc6 100644 (file)
--- a/its/hira.el
+++ b/its/hira.el
@@ -47,9 +47,13 @@
 (define-its-state-machine its-hira-map
   "roma-kana" "\e$B$"\e(B" "Japanese" nil
   "Map for Romaji-Hiragana translation. (Japanese)"
+
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs
   (defconst its-hankaku-escape "~")  ;; Escape character to Hankaku inputs
 
+  (its-defrule-select-mode-temporally "q" downcase)
+  (its-defrule-select-mode-temporally "Q" zenkaku-downcase)
+
 ;;; k      k
 ;;; kk     \e$B$C\e(Bk
 ;;; kka    \e$B$C$+\e(B
@@ -434,9 +438,9 @@
       (its-defrule "nn" "\e$B$s\e(B")
     (its-defrule "nn" "\e$B$s\e(B" -1))
 
-  (its-defrule "-"   its-hira-horizontal)
-  (its-defrule "["    its-hira-open-bracket)
-  (its-defrule "]"    its-hira-close-bracket)
+  (its-defrule "-" its-hira-horizontal)
+  (its-defrule "[" its-hira-open-bracket)
+  (its-defrule "]" its-hira-close-bracket)
   (its-defrule "." its-hira-period)
   (its-defrule "," its-hira-comma)
 
@@ -455,13 +459,11 @@
        (its-defrule   "="   "\e$B!a\e(B")  (its-defrule   "`"   "\e$B!.\e(B")
        (its-defrule   "\\"  "\e$B!o\e(B")  (its-defrule   "|"   "\e$B!C\e(B")
        (its-defrule   "_"   "\e$B!2\e(B")  (its-defrule   "+"   "\e$B!\\e(B")
-       (its-defrule   "~"   "\e$B!1\e(B" nil t)
-       (its-defrule   "{"   "\e$B!P\e(B")
-       (its-defrule   "}"   "\e$B!Q\e(B")  (its-defrule   ":"   "\e$B!'\e(B")
-       (its-defrule   ";"   "\e$B!(\e(B")  (its-defrule   "\""  "\e$B!I\e(B")
-       (its-defrule   "'"   "\e$B!G\e(B")  (its-defrule   "<"   "\e$B!c\e(B")
-       (its-defrule   ">"   "\e$B!d\e(B")  (its-defrule   "?"   "\e$B!)\e(B")
-       (its-defrule   "/"   "\e$B!?\e(B"))
+       (its-defrule   "{"   "\e$B!P\e(B")  (its-defrule   "}"   "\e$B!Q\e(B")
+       (its-defrule   ":"   "\e$B!'\e(B")  (its-defrule   ";"   "\e$B!(\e(B")
+       (its-defrule   "\""  "\e$B!I\e(B")  (its-defrule   "'"   "\e$B!G\e(B")
+       (its-defrule   "<"   "\e$B!c\e(B")  (its-defrule   ">"   "\e$B!d\e(B")
+       (its-defrule   "?"   "\e$B!)\e(B")  (its-defrule   "/"   "\e$B!?\e(B"))
     (progn
       (its-defrule   "1"   "1")  (its-defrule   "2"   "2")
       (its-defrule   "3"   "3")  (its-defrule   "4"   "4")
@@ -474,15 +476,13 @@
       (its-defrule   "&"   "&")  (its-defrule   "*"   "*")
       (its-defrule   "("   "(")  (its-defrule   ")"   ")")
       (its-defrule   "="   "=")  (its-defrule   "`"   "`")
-      (its-defrule   "\\"  "\\")  (its-defrule   "|"   "|")
+      (its-defrule   "\\"  "\\") (its-defrule   "|"   "|")
       (its-defrule   "_"   "_")  (its-defrule   "+"   "+")
-      (its-defrule   "~"   "~" nil t)
-      (its-defrule   "{"   "{")
-      (its-defrule   "}"   "}")  (its-defrule   ":"   ":")
-      (its-defrule   ";"   ";")  (its-defrule   "\""  "\"")
-      (its-defrule   "'"   "'")  (its-defrule   "<"   "<")
-      (its-defrule   ">"   ">")  (its-defrule   "?"   "?")
-      (its-defrule   "/"   "/")))
+      (its-defrule   "{"   "{")  (its-defrule   "}"   "}")
+      (its-defrule   ":"   ":")  (its-defrule   ";"   ";")
+      (its-defrule   "\""  "\"") (its-defrule   "'"   "'")
+      (its-defrule   "<"   "<")  (its-defrule   ">"   ">")
+      (its-defrule   "?"   "?")  (its-defrule   "/"   "/")))
   )
 
 (provide 'its/hira)