Mercurial > hg > xemacs-beta

comparison lisp/mule/european.el @ 2575:e71117a6ddac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-09 15:29:07 by aidan] Add support and Unicode mapping tables for ISO 8859-16 by default. Not _quite_ the one-line change I thought it would be, but very trivial for all that.
author aidan
date Wed, 09 Feb 2005 15:29:12 +0000
parents 42375619fa45
children c4235ee1f733
comparison
equal deleted inserted replaced
2574:5e2653bc0ab0 2575:e71117a6ddac
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
26 ;; 02111-1307, USA. 26 ;; 02111-1307, USA.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; For Europeans, six coded character sets ISO8859-1,2,3,4,9 are supported. 30 ;; For Europeans, seven coded character sets ISO8859-1,2,3,4,9,10 are supported.
31 ;; Note: ISO 8859/15 (Latin-9) is supported via the latin-unity package. 31 ;; Note: ISO 8859/15 (Latin-9) is supported via the latin-unity package.
32 32
33 ;; #### latin.el would be a better name for this file. 33 ;; #### latin.el would be a better name for this file.
34 34
35 ;;; Code: 35 ;;; Code:
129 graphic 1 129 graphic 1
130 short-name "RHP of Latin-8" 130 short-name "RHP of Latin-8"
131 long-name "RHP of Latin-8 (ISO 8859-14)" 131 long-name "RHP of Latin-8 (ISO 8859-14)"
132 )) 132 ))
133 133
134 (make-charset 'latin-iso8859-16
135 "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)"
136 '(dimension
137 1
138 registry "ISO8859-16"
139 chars 96
140 columns 1
141 direction l2r
142 final ?f ; octet 06/06; cf ISO-IR 226
143 graphic 1
144 short-name "RHP of Latin-10"
145 long-name "RHP of Latin-10 (ISO 8859-16)"
146 ))
147
148 (loop for c from 64 to 127
149 do (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
150 (mapc (lambda (c)
151 (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
152 '(#xA1 #xA2 #xA3 #xA6 #xA8 #xAA #xAC #xAE #xAF
153 #xB3 #xB4 #xB5 #xB8 #xB9 #xBA #xBC #xBD #xBE #xBF))
154
134 155
135 ;; For syntax of Latin-1 characters. 156 ;; For syntax of Latin-1 characters.
136 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B' 157 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
137 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) 158 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
138 159
348 charset-g1 latin-iso8859-9 369 charset-g1 latin-iso8859-9
349 charset-g2 t 370 charset-g2 t
350 charset-g3 t 371 charset-g3 t
351 mnemonic "MIME/Ltn-5" 372 mnemonic "MIME/Ltn-5"
352 )) 373 ))
374
375 ;; Add a coding system for ISO 8859-16.
376 (make-coding-system
377 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
378 '(charset-g0 ascii
379 charset-g1 latin-iso8859-16
380 charset-g2 t ; grrr
381 charset-g3 t ; grrr
382 mnemonic "MIME/Ltn-10"))
353 383
354 (loop for ((charset codesys default-input nice-charset-1 nice-charset-2 384 (loop for ((charset codesys default-input nice-charset-1 nice-charset-2
355 supported-langs ;; a list if the doc string is replaced 385 supported-langs ;; a list if the doc string is replaced
356 ;; entirely 386 ;; entirely
357 ) 387 )