Mercurial > hg > xemacs-beta

comparison lisp/mule/european.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children 4d00488244c1
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. 28 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported.
29 29
30 ;; #### latin.el would be a better name for this file.
31
30 ;;; Code: 32 ;;; Code:
31 33
32 ;; For syntax of Latin-1 characters. 34 ;; For syntax of Latin-1 characters.
33 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B' 35 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
34 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) 36 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
45 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")) 47 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
46 48
47 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space 49 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
48 (modify-syntax-entry ?,BW(B ".") 50 (modify-syntax-entry ?,BW(B ".")
49 (modify-syntax-entry ?,Bw(B ".") 51 (modify-syntax-entry ?,Bw(B ".")
52
53 ;; For syntax of Latin-3
54 (loop for c in '(?,C!(B ?,C&(B ?,C)(B ?,C*(B ?,C+(B ?,C,(B ?,C/(B ?,C1(B ?,C5(B ?,C6(B ?,C:(B ?,C;(B ?,C<(B ?,C?(B)
55 do (modify-syntax-entry c "w"))
56
57 (loop for c from 64 to 126
58 do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
59
60 (modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
61 (modify-syntax-entry ?,CW(B ".")
62 (modify-syntax-entry ?,Cw(B ".")
63
64 ;; For syntax of Latin-4
65 (loop for c in '(?,D!(B ?,D"(B ?,D#(B ?,D%(B ?,D&(B ?,D)(B ?,D*(B ?,D+(B ?,D,(B ?,D.(B ?,D1(B ?,D3(B ?,D5(B ?,D6(B ?,D9(B ?,D:(B ?,D;(B ?,D<(B ?,D=(B ?,D>(B ?,D?(B)
66 do (modify-syntax-entry c "w"))
67
68 (loop for c from 64 to 126
69 do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
70
71 (modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
72 (modify-syntax-entry ?,DW(B ".")
73 (modify-syntax-entry ?,Dw(B ".")
74
50 75
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 76 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52 ;;; EUROPEANS 77 ;;; EUROPEANS
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
54 79