Author: sasugaanija
Date: Mon Sep 24 03:56:43 2007
New Revision: 5014
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- (uim-key-binding): Support autoloaded keymap for Emacs20.
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Mon Sep 24 03:56:43 2007
@@ -91,6 +91,14 @@
(setq bind (lookup-key key-translation-map vec))))
(setq uim-mode mode))
+
+ ;; process autoload keymap
+ (if (commandp bind)
+ (let ((sf (symbol-function bind)))
+ (if (and (listp sf)
+ (eq 'keymap (nth 4 sf)))
+ (lookup-key bind [nil]))))
+
bind
))
