[uim-commit] r2490 - trunk/emacs

[ekato at freedesktop.org]

Author: ekato
Date: 2005-12-09 05:20:27 -0800 (Fri, 09 Dec 2005)
New Revision: 2490

Modified:
   trunk/emacs/uim-key.el
   trunk/emacs/uim.el
Log:
2005-12-09 Konosuke Watanabe
* emacs/uim-key.el
* emacs/uim.el
  - Support numeric keypad.


Modified: trunk/emacs/uim-key.el
===================================================================
--- trunk/emacs/uim-key.el	2005-12-09 13:19:11 UTC (rev 2489)
+++ trunk/emacs/uim-key.el	2005-12-09 13:20:27 UTC (rev 2490)
@@ -219,6 +219,7 @@
 	   (if (eq bind 'self-insert-command)
 	       (progn
 		 (setq this-command bind)
+		 (setq last-command-char (aref keyvec 0))
 		 (call-interactively bind)
 		 (uim-concat-undo))
 	     (setq this-command bind)

Modified: trunk/emacs/uim.el
===================================================================
--- trunk/emacs/uim.el	2005-12-09 13:19:11 UTC (rev 2489)
+++ trunk/emacs/uim.el	2005-12-09 13:20:27 UTC (rev 2490)
@@ -1039,7 +1039,7 @@
 		 (if uim-last-key-vector
 		     (progn
 		       (setq key uim-last-key-vector)
-		       (uim-debug (format "%s" key)))
+		       (uim-debug (format "last-key: %s" key)))
 		   (setq key (car rval)))
 		 )
 		((string= rcode "s") ;; commit string