mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
Adjusted for the change of input method handling.
This commit is contained in:
Kenichi Handa 1998-09-25 07:32:05 +00:00
parent fdfcf19d01
commit bcc1e37875
1 changed files with 7 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
leim/quail/japanese.el
View File

@ -311,24 +311,13 @@ qh: use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
)
(defun quail-japanese-hankaku-update-translation (control-flag)
(cond ((eq control-flag t)
(insert (japanese-hankaku quail-current-str))
(quail-terminate-translation))
((null control-flag)
(insert (if quail-current-str
(japanese-hankaku quail-current-str)
quail-current-key)))
(t ; i.e. (numberp control-flag)
(cond ((= (aref quail-current-key 0) ?n)
(insert ?(I](B))
((= (aref quail-current-key 0) (aref quail-current-key 1))
(insert ?(I/(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-hankaku quail-current-str)))
control-flag)
(quail-define-package
"japanese-hankaku-kana"