comparison leim/quail/japanese.el @ 23262:5d2f6f759380

(quail-japanese-katakana-update-translation): Adjusted for the change of input method handling.

23261:9346958bb3d5

(setcar (cdr (cdr quail-current-package))
	(nth 2 (assoc "japanese" quail-package-alist)))

;; Update Quail translation region while converting Hiragana to Katakana.
(defun quail-japanese-katakana-update-translation (control-flag)
  (cond ((eq control-flag t)
	 (insert (japanese-katakana quail-current-str))
	 (quail-terminate-translation))
	((null control-flag)
	 (insert (if quail-current-str
		     (japanese-katakana quail-current-str)
		   quail-current-key)))
	(t				; i.e. (numberp control-flag)
	 (cond ((= (aref quail-current-key 0) ?n)
		(insert ?$B%s(B))
	       ((= (aref quail-current-key 0) (aref quail-current-key 1))
		(insert ?$B%C(B))
	       (t
		(insert (aref quail-current-key 0))))
	 (setq unread-command-events
	       (list (aref quail-current-key control-flag)))
	 (quail-terminate-translation))))

(quail-define-package 
 "japanese-katakana" "Japanese" "$B%"(B"
 nil
 "Japanese katakana input method by Roman transliteration"

23262:5d2f6f759380

(setcar (cdr (cdr quail-current-package))
	(nth 2 (assoc "japanese" quail-package-alist)))

;; Update Quail translation region while converting Hiragana to Katakana.
(defun quail-japanese-katakana-update-translation (control-flag)
  (setq control-flag
	(quail-japanese-update-translation control-flag))
  (if (or (and (stringp quail-current-str)
	       (> (length quail-current-str) 0))
	  (integerp quail-current-str))
      (setq quail-current-str (japanese-katakana quail-current-str)))
  control-flag)

(quail-define-package 
 "japanese-katakana" "Japanese" "$B%"(B"
 nil
 "Japanese katakana input method by Roman transliteration"