Commit 269a9d1a authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(korean-key-bindings): Add binding for key Hangul.

parent d5e9630f
2009-06-18 Kenichi Handa <handa@m17n.org>
* language/korea-util.el (korean-key-bindings): Add binding for
key Hangul.
2009-06-17 Chong Yidong <cyd@stupidchicken.com> 2009-06-17 Chong Yidong <cyd@stupidchicken.com>
   
* progmodes/compile.el (compilation-error-regexp-alist-alist): * progmodes/compile.el (compilation-error-regexp-alist-alist):
......
...@@ -97,9 +97,11 @@ ...@@ -97,9 +97,11 @@
;; Information for setting and exiting Korean environment. ;; Information for setting and exiting Korean environment.
(defvar korean-key-bindings (defvar korean-key-bindings
`((global [?\S- ] toggle-korean-input-method nil) `((global [?\S- ] toggle-korean-input-method nil)
(global [Hangul] toggle-korean-input-method nil)
(global [C-f9] quail-hangul-switch-symbol-ksc nil) (global [C-f9] quail-hangul-switch-symbol-ksc nil)
(global [f9] quail-hangul-switch-hanja nil) (global [f9] quail-hangul-switch-hanja nil)
(,isearch-mode-map [?\S- ] isearch-toggle-korean-input-method 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 [C-f9] isearch-hangul-switch-symbol-ksc nil)
(,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil)))
...@@ -118,7 +120,9 @@ ...@@ -118,7 +120,9 @@
(setq old-def (lookup-key (car this) key)) (setq old-def (lookup-key (car this) key))
(define-key (car this) key new-def)) (define-key (car this) key new-def))
(setcar (nthcdr 3 this) old-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 () (defun exit-korean-environment ()
"Exit Korean language environment." "Exit Korean language environment."
...@@ -133,7 +137,8 @@ ...@@ -133,7 +137,8 @@
(global-set-key key old-def)) (global-set-key key old-def))
(if (eq (lookup-key (car this) key) new-def) (if (eq (lookup-key (car this) key) new-def)
(define-key (car this) key old-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) (provide 'korea-util)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment