Mercurial > hg > xemacs-beta
diff lisp/leim/quail/hanja-jis.el @ 197:acd284d43ca1 r20-3b25
Import from CVS: tag r20-3b25
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:00:02 +0200 |
| parents | 43dd3413c7c7 |
| children |
line wrap: on
line diff
--- a/lisp/leim/quail/hanja-jis.el Mon Aug 13 09:59:07 2007 +0200 +++ b/lisp/leim/quail/hanja-jis.el Mon Aug 13 10:00:02 2007 +0200 @@ -1,7 +1,7 @@ ;;; quail/hanja-jis.el -- Quail package for inputting Korean Hanja (JISX0208) -;; Copyright (C) 1995 Free Software Foundation, Inc. -;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. +;; Licensed to the Free Software Foundation. ;; Keywords: multilingual, input method, Korean, Hangul @@ -18,16 +18,18 @@ ;; 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, 675 Mass Ave, Cambridge, MA 02139, USA. +;; 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: (require 'quail) -(quail-define-package "quail-hanja-jis" "Korean" "2$(C9z=D(BJIS$B4A;z(B" t - "$B3:aD$(CGO4B(B $B4A;z$(C@G(B $B1$$(C@;(B $(CGQ1[(B2$(C9z$B<0$(C@87N(B $B8F=P$(CGO?)(B $BA*Z$(B" - nil nil nil nil nil nil t) +(quail-define-package + "korean-hanja-jis" "Korean" "$(C9z$B4A(B" t + "2$(C9z=D(BJIS$B4A;z(B: $B3:aD$(CGO4B(B $B4A;z$(C@G(B $B1$$(C@;(B $(CGQ1[(B2$(C9z$B<0$(C@87N(B $B8F=P$(CGO?)(B $BA*Z$(B" + nil nil nil nil nil nil t) (quail-define-rules ("rk" "$B1]2>2@2A2B2C2D2E2G2H2K2M2N2Q2T2W2X2`2o3976P$PqQ+RjS'[H[I`]aPcwgWhSkEkhlKlhmF(B")