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

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
comparison
equal deleted inserted replaced
5818:15b0715c204d 5819:ba0ff364bd94
95 (setq input-method-function nil) 95 (setq input-method-function nil)
96 (isearch-update)) 96 (isearch-update))
97 97
98 ;; Information for setting and exiting Korean environment. 98 ;; Information for setting and exiting Korean environment.
99 (defvar korean-key-bindings 99 (defvar korean-key-bindings
100 `((global [?\S- ] toggle-korean-input-method nil) 100 `((global [(shift space)] toggle-korean-input-method nil)
101 (global [C-f9] quail-hangul-switch-symbol-ksc nil) 101 (global [(control f9)] quail-hangul-switch-symbol-ksc nil)
102 (global [f9] quail-hangul-switch-hanja nil) 102 (global [f9] quail-hangul-switch-hanja nil)
103 (,isearch-mode-map [?\S- ] isearch-toggle-korean-input-method nil) 103 (,isearch-mode-map [(shift space)] isearch-toggle-korean-input-method nil)
104 (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) 104 (,isearch-mode-map [(control f9)] isearch-hangul-switch-symbol-ksc nil)
105 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) 105 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil)))
106 106
107 ;;;###autoload 107 ;;;###autoload
108 (defun setup-korean-environment-internal () 108 (defun setup-korean-environment-internal ()
109 (let ((key-bindings korean-key-bindings)) 109 (let ((key-bindings korean-key-bindings))