Mercurial > emacs
comparison lisp/language/korea-util.el @ 103632:a4b47cc25ea0
(setup-korean-environment-internal): Make
char-widht-table suitable for Korean environments.
(exit-korean-environment): Cancel above.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jun 2009 02:08:36 +0000 |
| parents | ec2e82c2fc34 |
| children | 25e1d7e37015 |
comparison
equal
deleted
inserted
replaced
| 103631:37ec2c241d37 | 103632:a4b47cc25ea0 |
|---|---|
| 106 (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) | 106 (,isearch-mode-map [C-f9] isearch-hangul-switch-symbol-ksc nil) |
| 107 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) | 107 (,isearch-mode-map [f9] isearch-hangul-switch-hanja nil))) |
| 108 | 108 |
| 109 ;;;###autoload | 109 ;;;###autoload |
| 110 (defun setup-korean-environment-internal () | 110 (defun setup-korean-environment-internal () |
| 111 (use-cjk-char-width-table 'ko_KR) | |
| 111 (let ((key-bindings korean-key-bindings)) | 112 (let ((key-bindings korean-key-bindings)) |
| 112 (while key-bindings | 113 (while key-bindings |
| 113 (let* ((this (car key-bindings)) | 114 (let* ((this (car key-bindings)) |
| 114 (key (nth 1 this)) | 115 (key (nth 1 this)) |
| 115 (new-def (nth 2 this)) | 116 (new-def (nth 2 this)) |
| 123 (setcar (nthcdr 3 this) old-def)) | 124 (setcar (nthcdr 3 this) old-def)) |
| 124 (setq key-bindings (cdr key-bindings))))) | 125 (setq key-bindings (cdr key-bindings))))) |
| 125 | 126 |
| 126 (defun exit-korean-environment () | 127 (defun exit-korean-environment () |
| 127 "Exit Korean language environment." | 128 "Exit Korean language environment." |
| 129 (use-default-char-width-table) | |
| 128 (let ((key-bindings korean-key-bindings)) | 130 (let ((key-bindings korean-key-bindings)) |
| 129 (while key-bindings | 131 (while key-bindings |
| 130 (let* ((this (car key-bindings)) | 132 (let* ((this (car key-bindings)) |
| 131 (key (nth 1 this)) | 133 (key (nth 1 this)) |
| 132 (new-def (nth 2 this)) | 134 (new-def (nth 2 this)) |