[Emacs-diffs] emacs/leim/quail hangul.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/06/23 02:11:35

Modified files:
        leim/quail     : hangul.el 

Log message:
        (hangul-to-hanja-conversion): When it is called
        while korean input method is off, convert the following character.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/leim/quail/hangul.el?cvsroot=emacs&r1=1.28&r2=1.29

Patches:
Index: hangul.el
===================================================================
RCS file: /cvsroot/emacs/emacs/leim/quail/hangul.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- hangul.el   18 Jun 2009 01:00:00 -0000      1.28
+++ hangul.el   23 Jun 2009 02:11:35 -0000      1.29
@@ -355,17 +355,24 @@
     (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)
+    (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