Revision: 5997
Author: sasugaanija
Date: Sun Aug 30 05:27:06 2009
Log: * emacs/uim-key.el
- Fix bug: Some special keys (such as arrow keys) cannot be used
when uim.el is enabled on emacs23 with -nw option.
http://code.google.com/p/uim/source/detail?r=5997
Modified:
/trunk/emacs/uim-key.el
=======================================
--- /trunk/emacs/uim-key.el Tue Jan 20 18:11:15 2009
+++ /trunk/emacs/uim-key.el Sun Aug 30 05:27:06 2009
@@ -612,8 +612,15 @@
;;(setq translated-vector input-vector)
(setq translated-vector nil)
(throw 'fmap-loop t))
-
- (setq translated (lookup-key function-key-map input-vector-main))
+
+ (if (boundp 'input-decode-map)
+ (setq translated (lookup-key input-decode-map
+ input-vector-main)))
+
+ (if (or (not translated)
+ (integerp translated))
+ (setq translated (lookup-key function-key-map
+ input-vector-main)))
(if (and (or (not translated)
(integerp translated))
