procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(hangul-to-hanja-conversion): When it is called

Browse source 
while korean input method is off, convert the following character.
This commit is contained in:
Kenichi Handa 2009-06-23 02:11:35 +00:00
parent d6b951bbee
commit 8000b1d55b
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
leim/quail/hangul.el
View file

@ -355,17 +355,24 @@ Other parts are the same as a `hangul3-input-method-cho'."
(delete-backward-char 1)))
(defun hangul-to-hanja-conversion ()
"Convert the previous hangul character to the corresponding hanja character."
"Convert the previous hangul character to the corresponding hanja character.
When a Korean input method is off, convert the following hangul character."
(interactive)
(let ((echo-keystrokes 0)
delete-func
hanja-character)
(setq hanja-character (hangul-to-hanja-char (preceding-char)))
(if (and (overlayp quail-overlay) (overlay-start quail-overlay))
(progn
(setq hanja-character (hangul-to-hanja-char (preceding-char)))
(setq delete-func (lambda () (delete-backward-char 1))))
(setq hanja-character (hangul-to-hanja-char (following-char)))
(setq delete-func (lambda () (delete-char 1))))
(when hanja-character
(delete-backward-char 1)
(funcall delete-func)
(insert hanja-character)
(setq hangul-queue (make-vector 6 0))
(move-overlay quail-overlay (point) (point)))))
(if (and (overlayp quail-overlay) (overlay-start quail-overlay))
(move-overlay quail-overlay (point) (point))))))
;; Support function for `hangul2-input-method'. Actually, this
;; function handles the Hangul 2-Bulsik. KEY is an entered key code