Commit 8000b1d5 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

while korean input method is off, convert the following character.
parent d6b951bb
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment