(setup-korean-environment-internal, exit-korean-environment): Cancel
the previous unexpected changes.
This commit is contained in:
parent
c1a7089259
commit
ec27625250
1 changed files with 2 additions and 5 deletions
|
@ -120,9 +120,7 @@
|
|||
(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))))
|
||||
(use-cjk-char-width-table 'ko_KR))
|
||||
|
||||
(setq key-bindings (cdr key-bindings)))))
|
||||
|
||||
(defun exit-korean-environment ()
|
||||
"Exit Korean language environment."
|
||||
|
@ -137,8 +135,7 @@
|
|||
(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))))
|
||||
(use-default-char-width-table))
|
||||
(setq key-bindings (cdr key-bindings)))))
|
||||
|
||||
;;
|
||||
(provide 'korea-util)
|
||||
|
|
Loading…
Reference in a new issue