Mercurial > emacs

changeset 72754:648fe463fd26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp850-decode-table): Fix a few codes. (cp858-decode-table): New variable.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 09 Sep 2006 12:17:50 +0000
parents 19178958365d
children b35ca895ffeb
files lisp/international/codepage.el
diffstat 1 files changed, 19 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/codepage.el	Sat Sep 09 11:07:11 2006 +0000
+++ b/lisp/international/codepage.el	Sat Sep 09 12:17:50 2006 +0000
@@ -220,16 +220,32 @@
   ;; character created by (make-char 'latin-iso8859-1 (+ N 160)).
   ;; The element nil means there's no corresponding cp850 glyph.
   [
-   255 173 189 156 207 190 221 245 249 184 166 174 170 240 169 nil
+   255 173 189 156 207 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 231 225
+   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 232 152]
+   208 164 149 162 147 228 148 246 155 151 163 150 129 236 231 152]
   "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
 (defvar cp851-decode-table
   [