Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children 54cc21c15cbb
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; european-hooks.el --- pre-loaded support for European languages.
2
3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems.
6
7 ;; This file is part of XEmacs.
8
9 ;; XEmacs is free software; you can redistribute it and/or modify it
10 ;; under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
12 ;; any later version.
13
14 ;; XEmacs is distributed in the hope that it will be useful, but
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details.
18
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
23
24 ;;; Synched up with: Mule 2.3.
25
26 ;; For syntax of Latin-1 characters.
27 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
28 do (modify-syntax-entry (make-char 'latin-1 c) "w"))
29
30 (modify-syntax-entry (make-char 'latin-1 32) "w") ; no-break space
31 (modify-syntax-entry ?,AW(B "_")
32 (modify-syntax-entry ?,Aw(B "_")
33
34 ;; For syntax of Latin-2
35 (loop for c in '(?,B!(B ?,B#(B ?,B%(B ?,B&(B ?,B)(B ?,B*(B ?,B+(B ?,B,(B ?,B.(B ?,B/(B ?,B1(B ?,B3(B ?,B5(B ?,B6(B ?,B9(B ?,B:(B ?,B;(B ?,B<(B)
36 do (modify-syntax-entry c "w"))
37
38 (loop for c from 62 to 126
39 do (modify-syntax-entry (make-char 'latin-2 c) "w"))
40
41 (modify-syntax-entry (make-char 'latin-2 32) "w") ; no-break space
42 (modify-syntax-entry ?,BW(B ".")
43 (modify-syntax-entry ?,Bw(B ".")
44
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46 ;;; EUROPEANS
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48
49 (make-coding-system
50 'iso-8859-2 'iso2022 "MIME ISO-8859-2"
51 '(charset-g0 ascii
52 charset-g1 latin-2
53 charset-g2 t
54 charset-g3 t
55 mnemonic "MIME/Ltn-2"
56 ))
57
58 (make-coding-system
59 'iso-8859-3 'iso2022 "MIME ISO-8859-3"
60 '(charset-g0 ascii
61 charset-g1 latin-3
62 charset-g2 t
63 charset-g3 t
64 mnemonic "MIME/Ltn-3"
65 ))
66
67 (make-coding-system
68 'iso-8859-4 'iso2022 "MIME ISO-8859-4"
69 '(charset-g0 ascii
70 charset-g1 latin-4
71 charset-g2 t
72 charset-g3 t
73 mnemonic "MIME/Ltn-4"
74 ))
75
76 (make-coding-system
77 'iso-8859-9 'iso2022 "MIME ISO-8859-9"
78 '(charset-g0 ascii
79 charset-g1 latin-5
80 charset-g2 t
81 charset-g3 t
82 mnemonic "MIME/Ltn-5"
83 ))
84
85 (add-hook 'quail-package-alist '("latin-1" "quail/latin"))
86 (add-hook 'quail-package-alist '("latin-2" "quail/latin"))
87 (add-hook 'quail-package-alist '("latin-3" "quail/latin"))
88 (add-hook 'quail-package-alist '("latin-4" "quail/latin"))
89 (add-hook 'quail-package-alist '("latin-5" "quail/latin"))
90
91 (define-language-environment 'european
92 "European (for Latin-1 through Latin-5)"
93 (lambda ()
94 ;(set-coding-category-system 'iso-8-designate 'iso-8859-1)
95 ;(set-coding-priority-list '(iso-8-designate iso-8-1))
96 (set-default-file-coding-system 'binary) ; iso-8859-1
97 (setq locale-coding-system 'binary) ; iso-8859-1
98 (setq process-input-coding-system 'binary) ; iso-8859-1
99 (setq process-output-coding-system 'binary) ; iso-8859-1
100 (set-default-file-coding-system 'binary) ; iso-8859-1
101 (set-file-coding-system-for-read 'binary) ; iso-8859-1
102 ;(setq display-coding-system 'iso-8859-1)
103 ;(setq keyboard-coding-system 'iso-8859-1)
104 (setq-default quail-current-package
105 (assoc "latin-1" quail-package-alist))))