Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/hanja.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;;; quail/hanja-ksc.el --- Quail-package for Korean Hanja (KSC5601) 1 ;;; quail/hanja-ksc.el --- Quail-package for Korean Hanja (KSC5601)
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, input method, Korean, Hangul 6 ;; Keywords: multilingual, input method, Korean, Hanja
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Code: 25 ;;; Code:
25 26
26 (require 'quail) 27 (require 'quail)
27 28
28 (defun quail-hanja-switch-to-symbol-ksc (&rest ignore) 29 (defun quail-hanja-switch-to-symbol-ksc (&rest ignore)
29 "Swith to `quail-symbol-ksc' package." 30 "Swith to `korean-symbol' package."
30 (quail-delete-region) 31 (quail-delete-region)
31 (select-input-method "Korean" "quail-symbol-ksc") 32 (select-input-method "korean-symbol")
32 (throw 'quail-tag nil)) 33 (throw 'quail-tag nil))
33 34
34 35
35 (quail-define-package "quail-hanja" "Korean " "2$(C9z=D(BKSC$(CySm.(B" t 36 (quail-define-package
36 "$(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B2$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B" 37 "korean-hanja" "Korean" "$(C9zyS(B" t
38 "2$(C9z=D(BKSC$(CySm.(B: $(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B2$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B"
37 nil nil nil nil nil nil t) 39 nil nil nil nil nil nil t)
38 40
39 (quail-define-rules 41 (quail-define-rules
40 ("\\" quail-hanja-switch-to-symbol-ksc) 42 ("\\" quail-hanja-switch-to-symbol-ksc)
41 43