Changeset 4166 for trunk/lisp/international/codepage.el

Timestamp:

09/18/06 20:48:14 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/international/codepage.el (modified) (1 diff)

trunk/lisp/international/codepage.el

@@ -221 +221 @@
-  ;; The element nil means there's no corresponding cp850 glyph.
-  [
-nil
+238
-   248 241 253 252 239 230 244 250 247 251 167 175 172 171 243 168
-   183 181 182 199 142 143 146 128 212 144 210 211 222 214 215 216
-1
+2
-   133 160 131 198 132 134 145 135 138 130 136 137 141 161 140 139
-2
+1
-  "Table for converting ISO-8859-1 characters into codepage 850 glyphs.")
-(setplist 'cp850-decode-table
-          '(charset latin-iso8859-1 language "Latin-1" offset 160))
+
+;; Multilingual (Latin-9)
+(defvar cp858-decode-table
+  ;; Nth element is the code of a cp858 glyph for the multibyte
+  ;; character created by (make-char 'latin-iso8859-15 (+ N 160)).
+  ;; The element nil means there's no corresponding cp858 glyph.
+  [
+   255 173 189 156 213 190 221 245 249 184 166 174 170 240 169 238
+   248 241 253 252 239 230 244 250 247 251 167 175 172 171 243 168
+   183 181 182 199 142 143 146 128 212 144 210 211 222 214 215 216
+   209 165 227 224 226 229 153 158 157 235 233 234 154 237 232 225
+   133 160 131 198 132 134 145 135 138 130 136 137 141 161 140 139
+   208 164 149 162 147 228 148 246 155 151 163 150 129 236 231 152]
+  "Table for converting ISO-8859-15 characters into codepage 858 glyphs.")
+(setplist 'cp858-decode-table
+          '(charset latin-iso8859-15 language "Latin-9" offset 160))
-
-;; Greek