Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5921:68639fb08af8 5923:61d7d7bcbe76
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))