1 ;;; pces-xm.el --- pces module for XEmacs-mule
3 ;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
5 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
6 ;; Keywords: emulation, compatibility, Mule
8 ;; This file is part of APEL (A Portable Emacs Library).
10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
15 ;; This program is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
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 the
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
27 ;;; @ fix coding-system definition
30 ;; It seems not bug, but I can not permit it...
31 (and (coding-system-property 'iso-2022-jp 'input-charset-conversion)
32 (copy-coding-system 'iso-2022-7bit 'iso-2022-jp))
34 (and (coding-system-property 'iso-2022-jp-dos 'input-charset-conversion)
35 (copy-coding-system 'iso-2022-7bit-dos 'iso-2022-jp-dos))
37 (or (find-coding-system 'ctext-dos)
40 "Coding-system used in X as Compound Text Encoding."
41 '(charset-g0 ascii charset-g1 latin-iso8859-1
45 (or (find-coding-system 'iso-2022-jp-2-dos)
47 'iso-2022-jp-2 'iso2022
48 "ISO-2022 coding system using SS2 for 96-charset in 7-bit code."
50 charset-g2 t ;; unspecified but can be used later.
56 (or (find-coding-system 'gb2312-dos)
57 (copy-coding-system 'cn-gb-2312-dos 'gb2312-dos))
58 (or (find-coding-system 'gb2312-mac)
59 (copy-coding-system 'cn-gb-2312-mac 'gb2312-mac))
60 (or (find-coding-system 'gb2312-unix)
61 (copy-coding-system 'cn-gb-2312-unix 'gb2312-unix))
63 (or (find-coding-system 'euc-kr-dos)
66 "Coding-system of Korean EUC (Extended Unix Code)."
67 '(charset-g0 ascii charset-g1 korean-ksc5601
76 (product-provide (provide 'pces-xm) (require 'apel-ver))
78 ;;; pces-xm.el ends here