Mercurial > hg > xemacs-beta

diff lisp/mule/korea-util.el @ 5819:ba0ff364bd94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Repair invalid GNU-style key-bindings.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 18 Oct 2014 23:21:30 +0900
parents 308d34e9f07d
children bbe4146603db
line wrap: on
line diff
--- a/lisp/mule/korea-util.el	Sat Oct 18 21:20:42 2014 +0900
+++ b/lisp/mule/korea-util.el	Sat Oct 18 23:21:30 2014 +0900
@@ -97,11 +97,11 @@
 
 ;; Information for setting and exiting Korean environment.
 (defvar korean-key-bindings
-  `((global [?\S- ] toggle-korean-input-method nil)
-    (global [C-f9] quail-hangul-switch-symbol-ksc nil)
+  `((global [(shift space)] toggle-korean-input-method nil)
+    (global [(control f9)] quail-hangul-switch-symbol-ksc nil)
     (global [f9]  quail-hangul-switch-hanja nil)
-    (,isearch-mode-map [?\S- ] isearch-toggle-korean-input-method nil)
-    (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil)
+    (,isearch-mode-map [(shift space)] isearch-toggle-korean-input-method nil)
+    (,isearch-mode-map [(control f9)] isearch-hangul-switch-symbol-ksc nil)
     (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil)))
 
 ;;;###autoload