martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(quail-japanese-katakana-update-translation):

Browse Source 
Adjusted for the change of input method handling.
This commit is contained in:
Kenichi Handa
1998-09-16 07:21:31 +00:00
parent 91693d18ea
commit 0dced2c95b
1 changed files with 7 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
leim/quail/japanese.el
View File

@@ -358,23 +358,13 @@ qq: toggle between `japanese-hankaku-kana' and `japanese-ascii'
;; 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))))
(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"