Author: nosuke
Date: Sat May 5 05:06:59 2007
New Revision: 4547
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- Support delete-selection-mode
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Sat May 5 05:06:59 2007
@@ -141,7 +141,10 @@
(unwind-protect
(progn
(setq uim-mode nil)
- (command-execute keyvec))
+ (setq this-command keyvec)
+ (run-hooks 'pre-command-hook)
+ (command-execute this-command)
+ )
(setq uim-mode mode))))
@@ -219,9 +222,14 @@
(call-interactively bind)
(uim-concat-undo))
(setq this-command bind)
- (command-execute bind)
+ (uim-debug (format "this-command is %s" this-command))
+ (setq last-command-char (aref keyvec 0))
+ (run-hooks 'pre-command-hook)
+ (command-execute this-command)
+
(uim-flush-concat-undo)
- ))
+ )
+ )
(t
(uim-flush-concat-undo)
(if uim-xemacs
