Author: sasugaanija
Date: Mon Sep 24 04:29:03 2007
New Revision: 5015
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- (uim-key-binding): Fix bug; uim-key-binding causes an error
when the bind is string.
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Mon Sep 24 04:29:03 2007
@@ -93,7 +93,7 @@
(setq uim-mode mode))
;; process autoload keymap
- (if (commandp bind)
+ (if (and (symbolp bind) (commandp bind))
(let ((sf (symbol-function bind)))
(if (and (listp sf)
(eq 'keymap (nth 4 sf)))
