|
70
|
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))))
|
