Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
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 ;; Copyright (C) 1997 MORIOKA Tomohiko
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
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:
32
33 ;; For syntax of Latin-1 characters.
34 (loop for c from 64 to 127 ; from 'À' to 'ÿ'
35 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
36
37 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
38 (modify-syntax-entry ?× "_")
39 (modify-syntax-entry ?÷ "_")
40
41 ;; For syntax of Latin-2
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
43 do (modify-syntax-entry c "w"))
44
45 (loop for c from 62 to 126
46 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
47
48 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
49 (modify-syntax-entry ?-B×-A ".")
50 (modify-syntax-entry ?-B÷-A ".")
51
52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
53 ;;; EUROPEANS
54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
55
56 (make-coding-system
57 'iso-8859-2 'iso2022 "MIME ISO-8859-2"
58 '(charset-g0 ascii
59 charset-g1 latin-iso8859-2
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
68 charset-g1 latin-iso8859-3
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
77 charset-g1 latin-iso8859-4
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
86 charset-g1 latin-iso8859-9
87 charset-g2 t
88 charset-g3 t
89 mnemonic "MIME/Ltn-5"
90 ))
91
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"))
102
103 (define-language-environment 'european
104 "European (for Latin-1 through Latin-5)"
105 (lambda ()
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)
113 (setq-default quail-current-package
114 (assoc "latin-1" quail-package-alist))
115 ))
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