Mercurial > hg > xemacs-beta
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)) |