Author: sasugaanija
Date: Mon Aug 27 07:57:40 2007
New Revision: 4902
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- (uim-is-escape)
- use [(meta escape)] instead of
(uim-convert-char-to-symbolvector "M-ESC")
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Mon Aug 27 07:57:40 2007
@@ -508,16 +508,14 @@
)
(uim-xemacs
(if (or window-system
- (and (not window-system) uim-use-single-escape-on-terminal))
+ (and (not window-system)
+ uim-use-single-escape-on-terminal))
(uim-is-single-escape keyvec)
- (or (equal keyvec (make-vector 2 (uim-xemacs-make-event [(escape)])))
- (equal keyvec (vector (uim-xemacs-make-event
(uim-convert-char-to-symbolvector "M-ESC"))))
- )
- )
- )
- )
- )
-
+ (or (equal keyvec
+ (make-vector 2 (uim-xemacs-make-event [(escape)])))
+ (equal keyvec
+ (vector (uim-xemacs-make-event [(meta escape)]))))
+ ))))
(defun uim-separate-prefix-vector (key-vector)
(let (key-vector-prefix key-vector-main)
