Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dee169ce
Commit
dee169ce
authored
Dec 09, 1997
by
Kenichi Handa
Browse files
Initial revision
parent
6cf2c826
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
608 additions
and
0 deletions
+608
-0
leim/quail/hanja3.el
leim/quail/hanja3.el
+507
-0
lisp/language/korea-util.el
lisp/language/korea-util.el
+101
-0
No files found.
leim/quail/hanja3.el
0 → 100644
View file @
dee169ce
This diff is collapsed.
Click to expand it.
lisp/language/korea-util.el
0 → 100644
View file @
dee169ce
;;; korea-util.el --- utilities for Korean
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Keywords: mule, multilingual, Korean
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Code:
;;;###autoload
(
defvar
default-korean-keyboard
""
"*The kind of Korean keyboard for Korean input method.
\"\" for 2, \"3\" for 3."
)
;; functions useful for Korean text input
(
defun
toggle-korean-input-method
()
"Turn on or off a Korean text input method for the current buffer."
(
interactive
)
(
if
current-input-method
(
inactivate-input-method
)
(
activate-input-method
(
concat
"korean-hangul"
default-korean-keyboard
))))
(
defun
quail-hangul-switch-symbol-ksc
(
&rest
ignore
)
"Swith to/from Korean symbol package."
(
interactive
"i"
)
(
and
current-input-method
(
if
(
string-equal
current-input-method
"korean-symbol"
)
(
activate-input-method
(
concat
"korean-hangul"
default-korean-keyboard
))
(
activate-input-method
"korean-symbol"
))))
(
defun
quail-hangul-switch-hanja
(
&rest
ignore
)
"Swith to/from Korean hanja package."
(
interactive
"i"
)
(
and
current-input-method
(
if
(
string-match
"korean-hanja"
current-input-method
)
(
activate-input-method
(
concat
"korean-hangul"
default-korean-keyboard
))
(
activate-input-method
(
concat
"korean-hanja"
default-korean-keyboard
)))))
;; Information for exiting Korean environment.
(
defvar
exit-korean-environment-data
nil
)
;;;###autoload
(
defun
setup-korean-environment
()
"Setup multilingual environment (MULE) for Korean."
(
interactive
)
(
setup-english-environment
)
(
setq
coding-category-iso-8-2
'korean-iso-8bit
)
(
set-coding-priority
'
(
coding-category-iso-7
coding-category-iso-8-2
coding-category-iso-8-1
))
(
set-default-coding-systems
'korean-iso-8bit
)
(
setq
default-input-method
"korean-hangul"
)
(
let
((
key-bindings
'
((
[?\S-
]
.
toggle-korean-input-method
)
(
[C-f9]
.
quail-hangul-switch-symbol-ksc
)
(
[f9]
.
quail-hangul-switch-hanja
))))
(
while
key-bindings
(
let
((
prev-binding
(
global-key-binding
(
car
(
car
key-bindings
)))))
(
setq
exit-korean-environment-data
(
cons
(
cons
(
car
(
car
key-bindings
))
prev-binding
)
exit-korean-environment-data
)))
(
global-set-key
(
car
(
car
key-bindings
))
(
cdr
(
car
key-bindings
)))
(
setq
key-bindings
(
cdr
key-bindings
)))))
(
defun
exit-korean-environment
()
"Exit Korean language environment."
(
while
exit-korean-environment-data
(
global-set-key
(
car
(
car
exit-korean-environment-data
))
(
cdr
(
car
exit-korean-environment-data
)))
(
setq
exit-korean-environment-data
(
cdr
exit-korean-environment-data
))))
;;
(
provide
'korea-util
)
;;; korean-util.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment