Mercurial > hg > xemacs-beta

diff lisp/mule/korea-util.el @ 5923:61d7d7bcbe76 cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged heads after pull -u
author Henry Thompson <ht@markup.co.uk>
date Thu, 05 Feb 2015 17:19:05 +0000
parents ba0ff364bd94
children bbe4146603db
line wrap: on
line diff
--- a/lisp/mule/korea-util.el	Wed Apr 23 22:22:37 2014 +0100
+++ b/lisp/mule/korea-util.el	Thu Feb 05 17:19:05 2015 +0000
@@ -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