comparison lisp/mule/european.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 602aa4ed9900
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
30 ;; Support six Latin coded character sets ISO8859-1,2,3,4,9,15. 30 ;; Support six Latin coded character sets ISO8859-1,2,3,4,9,15.
31 31
32 ;; #### latin.el would be a better name for this file. 32 ;; #### latin.el would be a better name for this file.
33 33
34 ;;; Code: 34 ;;; Code:
35 ; (make-charset 'latin-iso8859-1
36 ; "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100"
37 ; '(dimension
38 ; 1
39 ; registry "ISO8859-1"
40 ; chars 96
41 ; columns 1
42 ; direction l2r
43 ; final ?A
44 ; graphic 1
45 ; short-name "RHP of Latin-1"
46 ; long-name "RHP of Latin-1 (ISO 8859-1): ISO-IR-100"
47 ; ))
48
49 ; (make-charset 'latin-iso8859-2
50 ; "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101"
51 ; '(dimension
52 ; 1
53 ; registry "ISO8859-2"
54 ; chars 96
55 ; columns 1
56 ; direction l2r
57 ; final ?B
58 ; graphic 1
59 ; short-name "RHP of Latin-2"
60 ; long-name "RHP of Latin-2 (ISO 8859-2): ISO-IR-101"
61 ; ))
62
63 ; (make-charset 'latin-iso8859-3
64 ; "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109"
65 ; '(dimension
66 ; 1
67 ; registry "ISO8859-3"
68 ; chars 96
69 ; columns 1
70 ; direction l2r
71 ; final ?C
72 ; graphic 1
73 ; short-name "RHP of Latin-3"
74 ; long-name "RHP of Latin-3 (ISO 8859-3): ISO-IR-109"
75 ; ))
76
77 ; (make-charset 'latin-iso8859-4
78 ; "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110"
79 ; '(dimension
80 ; 1
81 ; registry "ISO8859-4"
82 ; chars 96
83 ; columns 1
84 ; direction l2r
85 ; final ?D
86 ; graphic 1
87 ; short-name "RHP of Latin-4"
88 ; long-name "RHP of Latin-4 (ISO 8859-4): ISO-IR-110"
89 ; ))
90
91 ; (make-charset 'latin-iso8859-9
92 ; "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148"
93 ; '(dimension
94 ; 1
95 ; registry "ISO8859-9"
96 ; chars 96
97 ; columns 1
98 ; direction l2r
99 ; final ?M
100 ; graphic 1
101 ; short-name "RHP of Latin-5"
102 ; long-name "RHP of Latin-5 (ISO 8859-9): ISO-IR-148"
103 ; ))
104
105 ; (make-charset 'latin-iso8859-15
106 ; "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203"
107 ; '(dimension
108 ; 1
109 ; registry "ISO8859-15"
110 ; chars 96
111 ; columns 1
112 ; direction l2r
113 ; final ?b
114 ; graphic 1
115 ; short-name "RHP of Latin-9"
116 ; long-name "RHP of Latin-9 (ISO 8859-15): ISO-IR-203"
117 ; ))
118
119 (make-charset 'latin-iso8859-14
120 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
121 '(dimension
122 1
123 registry "ISO8859-14"
124 chars 96
125 columns 1
126 direction l2r
127 final ?_
128 graphic 1
129 short-name "RHP of Latin-8"
130 long-name "RHP of Latin-8 (ISO 8859-14)"
131 ))
132
35 133
36 ;; For syntax of Latin-1 characters. 134 ;; For syntax of Latin-1 characters.
37 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B' 135 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
38 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) 136 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
39 137
168 )) 266 ))
169 267
170 (provide 'romanian) 268 (provide 'romanian)
171 269
172 ;; Czech support originally from czech.el 270 ;; Czech support originally from czech.el
173 ;; Author: Milan Zamazal <pdm@fi.muni.cz> 271 ;; Author: Milan Zamazal <pdm@zamazal.org>
174 ;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz> 272 ;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel@Janik.cz>
273 ;; Maintainer (for XEmacs): David Sauer <davids@penguin.cz>
175 274
176 (provide 'czech) 275 (provide 'czech)
177 276
178 ;; Slovak support originally from slovak.el 277 ;; Slovak support originally from slovak.el
179 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, 278 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,