Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-x20.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko 4 ;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko
5 5
6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Version: $Id: emu-x20.el,v 1.1.1.1 1996/12/18 22:43:38 steve Exp $ 7 ;; Version: $Id: emu-x20.el,v 1.1.1.2 1996/12/21 20:50:48 steve Exp $
8 ;; Keywords: emulation, compatibility, Mule, XEmacs 8 ;; Keywords: emulation, compatibility, Mule, XEmacs
9 9
10 ;; This file is part of tl (Tiny Library). 10 ;; This file is part of tl (Tiny Library).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
34 (string-to-number 34 (string-to-number
35 (substring emacs-version (match-beginning 1)(match-end 1)) 35 (substring emacs-version (match-beginning 1)(match-end 1))
36 ))) 36 )))
37 37
38 38
39 ;;; @ character set 39 ;;; @ graphic character set
40 ;;; 40 ;;;
41 41
42 (defalias 'charset-description 'charset-doc-string) 42 (defalias 'charset-description 'charset-doc-string)
43 43
44 (defalias 'find-charset-string 'charsets-in-string) 44 (defalias 'find-charset-string 'charsets-in-string)
54 "Return a list of charsets except ascii 54 "Return a list of charsets except ascii
55 in the region between START and END. 55 in the region between START and END.
56 \[emu-x20.el; Mule emulating function]" 56 \[emu-x20.el; Mule emulating function]"
57 (delq 'ascii (charsets-in-region start end)) 57 (delq 'ascii (charsets-in-region start end))
58 ) 58 )
59
60 ;;; @@ for Mule emulation
61 ;;;
62
63 (defconst lc-ascii 'ascii)
64 (defconst lc-ltn1 'latin-1)
65 (defconst lc-ltn2 'latin-2)
66 (defconst lc-ltn3 'latin-3)
67 (defconst lc-ltn4 'latin-4)
68 (defconst lc-crl 'cyrillic)
69 (defconst lc-arb 'arabic)
70 (defconst lc-grk 'greek)
71 (defconst lc-hbw 'hebrew)
72 (defconst lc-ltn5 'latin-5)
73 (defconst lc-jp 'japanese-jisx0208)
74 (defconst lc-jp2 'japanese-jisx0212)
75 (defconst lc-kr 'korean-ksc5601)
76 (defconst lc-big5-1 'chinese-big5-1)
77 (defconst lc-big5-2 'chinese-big5-2)
78 (defconst lc-cn 'chinese-gb)
79 (defconst lc-cns1 'chinese-cns11643-1)
80 (defconst lc-cns2 'chinese-cns11643-2)
81 (defconst lc-cns3 'chinese-cns11643-3)
82 (defconst lc-cns4 'chinese-cns11643-4)
83 (defconst lc-cns5 'chinese-cns11643-5)
84 (defconst lc-cns6 'chinese-cns11643-6)
85 (defconst lc-cns7 'chinese-cns11643-7)
86 59
87 60
88 ;;; @ coding-system 61 ;;; @ coding-system
89 ;;; 62 ;;;
90 63
111 ;;; @ MIME charset 84 ;;; @ MIME charset
112 ;;; 85 ;;;
113 86
114 (defvar charsets-mime-charset-alist 87 (defvar charsets-mime-charset-alist
115 '(((ascii) . us-ascii) 88 '(((ascii) . us-ascii)
116 ((ascii latin-1) . iso-8859-1) 89 ((ascii latin-iso8859-1) . iso-8859-1)
117 ((ascii latin-2) . iso-8859-2) 90 ((ascii latin-iso8859-2) . iso-8859-2)
118 ((ascii latin-3) . iso-8859-3) 91 ((ascii latin-iso8859-3) . iso-8859-3)
119 ((ascii latin-4) . iso-8859-4) 92 ((ascii latin-iso8859-4) . iso-8859-4)
120 ;;; ((ascii cyrillic) . iso-8859-5) 93 ;;; ((ascii cyrillic-iso8859-5) . iso-8859-5)
121 ((ascii cyrillic) . koi8-r) 94 ((ascii cyrillic-iso8859-5) . koi8-r)
122 ((ascii arabic) . iso-8859-6) 95 ((ascii arabic-iso8859-6) . iso-8859-6)
123 ((ascii greek) . iso-8859-7) 96 ((ascii greek-iso8859-7) . iso-8859-7)
124 ((ascii hebrew) . iso-8859-8) 97 ((ascii hebrew-iso8859-8) . iso-8859-8)
125 ((ascii latin-5) . iso-8859-9) 98 ((ascii latin-iso8859-9) . iso-8859-9)
126 ((ascii japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp) 99 ((ascii japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp)
127 ((ascii korean-ksc5601) . euc-kr) 100 ((ascii korean-ksc5601) . euc-kr)
128 ((ascii chinese-big5-1 chinese-big5-2) . big5) 101 ((ascii chinese-big5-1 chinese-big5-2) . big5)
129 ((ascii japanese-jisx0208-1978 chinese-gb 102 ((ascii japanese-jisx0208-1978 chinese-gb
130 japanese-jisx0208 korean-ksc5601 103 japanese-jisx0208 korean-ksc5601
131 japanese-jisx0212 latin-1 greek) . iso-2022-jp-2) 104 japanese-jisx0212 latin-iso8859-1
132 ((ascii japanese-jisx0208-1978 chinese-gb japanese-jisx0208 korean-ksc5601 105 greek-iso8859-7) . iso-2022-jp-2)
133 japanese-jisx0212 chinese-cns11643-1 chinese-cns11643-2 106 ((ascii japanese-jisx0208-1978 chinese-gb2312
134 latin-1 greek) . iso-2022-int-1) 107 japanese-jisx0208 korean-ksc5601
108 japanese-jisx0212
109 chinese-cns11643-1 chinese-cns11643-2
110 latin-iso8859-1 greek-iso8859-7) . iso-2022-int-1)
135 )) 111 ))
136 112
137 (defvar default-mime-charset 'iso-2022-int-1) 113 (defvar default-mime-charset 'iso-2022-int-1)
138 114
139 (defvar mime-charset-coding-system-alist 115 (defvar mime-charset-coding-system-alist