|
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.
|
|
155
|
6 ;; Copyright (C) 1997 MORIOKA Tomohiko
|
|
70
|
7
|
|
|
8 ;; This file is part of XEmacs.
|
|
|
9
|
|
|
10 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
11 ;; under the terms of the GNU General Public License as published by
|
|
|
12 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
15 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
18 ;; General Public License for more details.
|
|
|
19
|
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
|
21 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
23 ;; Boston, MA 02111-1307, USA.
|
|
|
24
|
|
155
|
25 ;;; Commentary:
|
|
|
26
|
|
|
27 ;; Synched up with: Mule 2.3.
|
|
|
28
|
|
|
29 ;; Modification to sync with Emacs 20.1 is not finished yet.
|
|
|
30
|
|
|
31 ;;; Code:
|
|
70
|
32
|
|
|
33 ;; For syntax of Latin-1 characters.
|
|
138
|
34 (loop for c from 64 to 127 ; from 'À' to 'ÿ'
|
|
74
|
35 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
|
|
70
|
36
|
|
74
|
37 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
|
|
138
|
38 (modify-syntax-entry ?× "_")
|
|
|
39 (modify-syntax-entry ?÷ "_")
|
|
70
|
40
|
|
|
41 ;; For syntax of Latin-2
|
|
155
|
42 (loop for c in '(?-B¡-A ?-B£-A ?-B¥-A ?-B¦-A ?-B©-A ?-Bª-A ?-B«-A ?-B¬-A ?-B®-A ?-B¯-A ?-B±-A ?-B³-A ?-Bµ-A ?-B¶-A ?-B¹-A ?-Bº-A ?-B»-A ?-B¼)-A
|
|
70
|
43 do (modify-syntax-entry c "w"))
|
|
|
44
|
|
|
45 (loop for c from 62 to 126
|
|
74
|
46 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
|
|
70
|
47
|
|
74
|
48 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
|
|
155
|
49 (modify-syntax-entry ?-B×-A ".")
|
|
|
50 (modify-syntax-entry ?-B÷-A ".")
|
|
70
|
51
|
|
|
52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
53 ;;; EUROPEANS
|
|
|
54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
55
|
|
|
56 (make-coding-system
|
|
|
57 'iso-8859-2 'iso2022 "MIME ISO-8859-2"
|
|
|
58 '(charset-g0 ascii
|
|
74
|
59 charset-g1 latin-iso8859-2
|
|
70
|
60 charset-g2 t
|
|
|
61 charset-g3 t
|
|
|
62 mnemonic "MIME/Ltn-2"
|
|
|
63 ))
|
|
|
64
|
|
|
65 (make-coding-system
|
|
|
66 'iso-8859-3 'iso2022 "MIME ISO-8859-3"
|
|
|
67 '(charset-g0 ascii
|
|
74
|
68 charset-g1 latin-iso8859-3
|
|
70
|
69 charset-g2 t
|
|
|
70 charset-g3 t
|
|
|
71 mnemonic "MIME/Ltn-3"
|
|
|
72 ))
|
|
|
73
|
|
|
74 (make-coding-system
|
|
|
75 'iso-8859-4 'iso2022 "MIME ISO-8859-4"
|
|
|
76 '(charset-g0 ascii
|
|
74
|
77 charset-g1 latin-iso8859-4
|
|
70
|
78 charset-g2 t
|
|
|
79 charset-g3 t
|
|
|
80 mnemonic "MIME/Ltn-4"
|
|
|
81 ))
|
|
|
82
|
|
|
83 (make-coding-system
|
|
|
84 'iso-8859-9 'iso2022 "MIME ISO-8859-9"
|
|
|
85 '(charset-g0 ascii
|
|
74
|
86 charset-g1 latin-iso8859-9
|
|
70
|
87 charset-g2 t
|
|
|
88 charset-g3 t
|
|
|
89 mnemonic "MIME/Ltn-5"
|
|
|
90 ))
|
|
|
91
|
|
155
|
92 (register-input-method "European"
|
|
|
93 '("quail-latin-1" quail-use-package "quail/latin"))
|
|
|
94 (register-input-method "European"
|
|
|
95 '("quail-latin-2" quail-use-package "quail/latin"))
|
|
|
96 (register-input-method "European"
|
|
|
97 '("quail-latin-3" quail-use-package "quail/latin"))
|
|
|
98 (register-input-method "European"
|
|
|
99 '("quail-latin-4" quail-use-package "quail/latin"))
|
|
|
100 (register-input-method "European"
|
|
|
101 '("quail-latin-5" quail-use-package "quail/latin"))
|
|
70
|
102
|
|
|
103 (define-language-environment 'european
|
|
|
104 "European (for Latin-1 through Latin-5)"
|
|
|
105 (lambda ()
|
|
110
|
106 ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1)
|
|
|
107 ;;(set-coding-priority-list '(iso-8-designate iso-8-1))
|
|
|
108 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1
|
|
|
109 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1
|
|
|
110 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1
|
|
|
111 ;;(setq display-coding-system 'iso-8859-1)
|
|
|
112 ;;(setq keyboard-coding-system 'iso-8859-1)
|
|
138
|
113 (setq-default quail-current-package
|
|
|
114 (assoc "latin-1" quail-package-alist))
|
|
74
|
115 ))
|
|
155
|
116
|
|
|
117 (set-language-info "English" 'tutorial "TUTORIAL")
|
|
|
118
|
|
|
119 (register-input-method "French"
|
|
|
120 '("quail-latin-1" quail-use-package "quail/latin"))
|
|
|
121 (register-input-method "French"
|
|
|
122 '("quail-latin-1" quail-use-package "quail/latin"))
|
|
|
123
|
|
|
124 ;;; european-hooks.el ends here
|
