# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 984732461 0
# Node ID ec1f6390f68e54aa7124e22287f0363e1fadfe37
# Parent  96b2d9e4ef6d1b66ba27ee677e4ef195e5429781
(quail-japanese-kana-state): Delete this variable.
(quail-japanese-toggle-kana): Don't use quail-japanese-kana-state,
instead check if there's any Hiraganas in the converison region.

diff -r 96b2d9e4ef6d -r ec1f6390f68e leim/quail/japanese.el
--- a/leim/quail/japanese.el	Fri Mar 16 08:47:14 2001 +0000
+++ b/leim/quail/japanese.el	Fri Mar 16 08:47:41 2001 +0000
@@ -55,22 +55,17 @@
 		    (list (aref quail-current-key control-flag)))))))
   control-flag)
 	 
-;; Flag to control the behavior of `quail-japanese-toggle-kana'.
-(defvar quail-japanese-kana-state nil)
-(make-variable-buffer-local 'quail-japanese-kana-state)
-
 ;; Convert Hiragana <-> Katakana in the current translation region.
 (defun quail-japanese-toggle-kana ()
   (interactive)
   (setq quail-translating nil)
   (let ((start (overlay-start quail-conv-overlay))
 	(end (overlay-end quail-conv-overlay)))
-    (setq quail-japanese-kana-state
-	  (if (eq last-command this-command)
-	      (not quail-japanese-kana-state)))
-    (if quail-japanese-kana-state
-	(japanese-hiragana-region start end)
-      (japanese-katakana-region start end))
+    (save-excursion
+      (goto-char start)
+      (if (re-search-forward "\\cH" end t)
+	  (japanese-katakana-region start end)
+	(japanese-hiragana-region start end)))
     (setq quail-conversion-str
 	  (buffer-substring (overlay-start quail-conv-overlay)
 			    (overlay-end quail-conv-overlay)))))