Mercurial > emacs

comparison leim/quail/japanese.el @ 23316:308cd9d90647

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-japanese-hankaku-update-translation): Adjusted for the change of input method handling.
author Kenichi Handa <handa@m17n.org>
date Fri, 25 Sep 1998 07:32:05 +0000
parents 5d2f6f759380
children 89706001ab78
comparison
equal deleted inserted replaced
23315:86a8b8566369 23316:308cd9d90647
309 ("qq" quail-japanese-switch-package) 309 ("qq" quail-japanese-switch-package)
310 ("qh" quail-japanese-switch-package) 310 ("qh" quail-japanese-switch-package)
311 ) 311 )
312 312
313 (defun quail-japanese-hankaku-update-translation (control-flag) 313 (defun quail-japanese-hankaku-update-translation (control-flag)
314 (cond ((eq control-flag t) 314 (setq control-flag
315 (insert (japanese-hankaku quail-current-str)) 315 (quail-japanese-update-translation control-flag))
316 (quail-terminate-translation)) 316 (if (or (and (stringp quail-current-str)
317 ((null control-flag) 317 (> (length quail-current-str) 0))
318 (insert (if quail-current-str 318 (integerp quail-current-str))
319 (japanese-hankaku quail-current-str) 319 (setq quail-current-str (japanese-hankaku quail-current-str)))
320 quail-current-key))) 320 control-flag)
321 (t ; i.e. (numberp control-flag)
322 (cond ((= (aref quail-current-key 0) ?n)
323 (insert ?(I](B))
324 ((= (aref quail-current-key 0) (aref quail-current-key 1))
325 (insert ?(I/(B))
326 (t
327 (insert (aref quail-current-key 0))))
328 (setq unread-command-events
329 (list (aref quail-current-key control-flag)))
330 (quail-terminate-translation))))
331
332 321
333 (quail-define-package 322 (quail-define-package
334 "japanese-hankaku-kana" 323 "japanese-hankaku-kana"
335 "Japanese" "(I1(B" 324 "Japanese" "(I1(B"
336 nil 325 nil