Author: nosuke
Date: Sat May 5 04:39:22 2007
New Revision: 4546
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- Support event-apply-*-modifier
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Sat May 5 04:39:22 2007
@@ -568,10 +568,8 @@
(setq done t)
)
((functionp fmap)
- ;; function: Where should I call this function???
- ;; Perhaps, this part doesn't work.
(uim-debug (format "function: %s" (vconcat merged-list)))
- (setq fmap (fmap nil))
+ (setq fmap (funcall fmap nil))
(if (vectorp fmap)
(setq uim-stacked-key-vector (vconcat stacked-list fmap))
)
