comparison lisp/international/codepage.el @ 41946:ac35ef786b2d

Fix doc-strings.
author Pavel Janík <Pavel@Janik.cz>
date Tue, 11 Dec 2001 06:56:10 +0000
parents 253f761ad37b
children fd3c70d7a093
comparison
equal deleted inserted replaced
41945:6d27cd884384 41946:ac35ef786b2d
490 176 185 178 179 180 190 156 161 184 154 186 157 159 189 158 191 490 176 185 178 179 180 190 156 161 184 154 186 157 159 189 158 191
491 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 491 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207
492 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 492 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
493 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 493 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
494 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 ] 494 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 ]
495 "ISO-8859-2 to Windows-1250 (Central Europe) codepage decoding table") 495 "ISO-8859-2 to Windows-1250 (Central Europe) codepage decoding table.")
496 (setplist 'cp1250-decode-table 496 (setplist 'cp1250-decode-table
497 '(charset latin-iso8859-2 language "Latin-2" offset 160)) 497 '(charset latin-iso8859-2 language "Latin-2" offset 160))
498 498
499 (defvar cp1251-decode-table 499 (defvar cp1251-decode-table
500 [ 500 [
502 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 502 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207
503 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 503 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
504 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 504 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
505 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 505 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255
506 185 184 144 131 186 190 179 191 188 154 156 158 157 167 162 159 ] 506 185 184 144 131 186 190 179 191 188 154 156 158 157 167 162 159 ]
507 "ISO-8859-5 to Windows-1251 (Cyrillic) codepage decoding table") 507 "ISO-8859-5 to Windows-1251 (Cyrillic) codepage decoding table.")
508 (setplist 'cp1251-decode-table 508 (setplist 'cp1251-decode-table
509 '(charset cyrillic-iso8859-5 language "Cyrillic-ISO" offset 160)) 509 '(charset cyrillic-iso8859-5 language "Cyrillic-ISO" offset 160))
510 510
511 ;; cp1253 is missing nbsp so we cannot quite translate perfectly. It 511 ;; cp1253 is missing nbsp so we cannot quite translate perfectly. It
512 ;; also has two micro/mu characters which would require more complex 512 ;; also has two micro/mu characters which would require more complex
517 176 177 178 179 180 161 162 183 184 185 186 187 188 189 190 191 517 176 177 178 179 180 161 162 183 184 185 186 187 188 189 190 191
518 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 518 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207
519 208 209 nil 211 212 213 214 215 216 217 218 219 220 221 222 223 519 208 209 nil 211 212 213 214 215 216 217 218 219 220 221 222 223
520 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 520 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
521 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 nil ] 521 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 nil ]
522 "ISO-8859-7 to Windows-1253 (Greek) codepage decoding table") 522 "ISO-8859-7 to Windows-1253 (Greek) codepage decoding table.")
523 (setplist 'cp1253-decode-table 523 (setplist 'cp1253-decode-table
524 '(charset greek-iso8859-7 language "Greek" offset 160)) 524 '(charset greek-iso8859-7 language "Greek" offset 160))
525 525
526 ;; Since Latin-7 is not yet official, and Emacs does not support it, 526 ;; Since Latin-7 is not yet official, and Emacs does not support it,
527 ;; provide translation between Windows-1257 and Latin-4 the best we 527 ;; provide translation between Windows-1257 and Latin-4 the best we
532 176 224 nil 186 nil nil 239 nil nil 240 231 236 nil nil 254 nil 532 176 224 nil 186 nil nil 239 nil nil 240 231 236 nil nil 254 nil
533 194 nil nil nil 196 197 175 193 200 201 198 nil 203 nil nil 206 533 194 nil nil nil 196 197 175 193 200 201 198 nil 203 nil nil 206
534 nil 210 212 205 nil 213 214 215 168 216 nil nil 220 nil 219 223 534 nil 210 212 205 nil 213 214 215 168 216 nil nil 220 nil 219 223
535 226 nil nil nil 228 229 191 225 232 233 230 nil 235 nil nil 238 535 226 nil nil nil 228 229 191 225 232 233 230 nil 235 nil nil 238
536 nil 242 244 237 nil 245 246 247 184 248 nil nil 252 nil 251 nil ] 536 nil 242 244 237 nil 245 246 247 184 248 nil nil 252 nil 251 nil ]
537 "ISO-8859-4 to Windows-1257 (Baltic) codepage decoding table") 537 "ISO-8859-4 to Windows-1257 (Baltic) codepage decoding table.")
538 (setplist 'cp1257-decode-table 538 (setplist 'cp1257-decode-table
539 '(charset latin-iso8859-4 language "Latin-4" offset 160)) 539 '(charset latin-iso8859-4 language "Latin-4" offset 160))
540 540
541 ;;;###autoload 541 ;;;###autoload
542 (defun cp-make-coding-systems-for-codepage (codepage iso-name offset) 542 (defun cp-make-coding-systems-for-codepage (codepage iso-name offset)