From 269a9d1a9aaaf78ab2929a8d547e9c528ff77136 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 18 Jun 2009 01:02:45 +0000 Subject: [PATCH] (korean-key-bindings): Add binding for key Hangul. --- lisp/ChangeLog | 5 +++++ lisp/language/korea-util.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02ccb072bf8..8a6b2b6be5b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-18 Kenichi Handa + + * language/korea-util.el (korean-key-bindings): Add binding for + key Hangul. + 2009-06-17 Chong Yidong * progmodes/compile.el (compilation-error-regexp-alist-alist): diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index e3426604f25..56abda35336 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el @@ -97,9 +97,11 @@ ;; Information for setting and exiting Korean environment. (defvar korean-key-bindings `((global [?\S- ] toggle-korean-input-method nil) + (global [Hangul] toggle-korean-input-method nil) (global [C-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 [Hangul] isearch-toggle-korean-input-method nil) (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) @@ -118,7 +120,9 @@ (setq old-def (lookup-key (car this) key)) (define-key (car this) key new-def)) (setcar (nthcdr 3 this) old-def)) - (setq key-bindings (cdr key-bindings))))) + (setq key-bindings (cdr key-bindings)))) + (use-cjk-char-width-table 'ko_KR)) + (defun exit-korean-environment () "Exit Korean language environment." @@ -133,7 +137,8 @@ (global-set-key key old-def)) (if (eq (lookup-key (car this) key) new-def) (define-key (car this) key old-def)))) - (setq key-bindings (cdr key-bindings))))) + (setq key-bindings (cdr key-bindings)))) + (use-default-char-width-table)) ;; (provide 'korea-util) -- 2.39.2