Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 6608ceec7cf8
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1 ;;; european-hooks.el --- pre-loaded support for European languages. 1 ;;; european-hooks.el --- pre-loaded support for European languages.
2 2
3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation. 4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 7
7 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
8 9
9 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; 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 ;; under the terms of the GNU General Public License as published by
19 ;; You should have received a copy of the GNU General Public License 20 ;; 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 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Synched up with: Mule 2.3. 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:
25 32
26 ;; For syntax of Latin-1 characters. 33 ;; For syntax of Latin-1 characters.
27 (loop for c from 64 to 127 ; from 'À' to 'ÿ' 34 (loop for c from 64 to 127 ; from 'À' to 'ÿ'
28 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) 35 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
29 36
30 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space 37 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
31 (modify-syntax-entry ?× "_") 38 (modify-syntax-entry ?× "_")
32 (modify-syntax-entry ?÷ "_") 39 (modify-syntax-entry ?÷ "_")
33 40
34 ;; For syntax of Latin-2 41 ;; For syntax of Latin-2
35 (loop for c in '(?-B¡ ?£ ?¥ ?¦ ?© ?ª ?« ?¬ ?® ?¯ ?± ?³ ?µ ?¶ ?¹ ?º ?» ?¼)-A 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
36 do (modify-syntax-entry c "w")) 43 do (modify-syntax-entry c "w"))
37 44
38 (loop for c from 62 to 126 45 (loop for c from 62 to 126
39 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")) 46 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
40 47
41 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space 48 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
42 (modify-syntax-entry ?-B× ".")-A 49 (modify-syntax-entry ?-B×-A ".")
43 (modify-syntax-entry ?-B÷ ".")-A 50 (modify-syntax-entry ?-B÷-A ".")
44 51
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46 ;;; EUROPEANS 53 ;;; EUROPEANS
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48 55
80 charset-g2 t 87 charset-g2 t
81 charset-g3 t 88 charset-g3 t
82 mnemonic "MIME/Ltn-5" 89 mnemonic "MIME/Ltn-5"
83 )) 90 ))
84 91
85 (add-hook 'quail-package-alist '("latin-1" "quail-latin")) 92 (register-input-method "European"
86 (add-hook 'quail-package-alist '("latin-2" "quail-latin")) 93 '("quail-latin-1" quail-use-package "quail/latin"))
87 (add-hook 'quail-package-alist '("latin-3" "quail-latin")) 94 (register-input-method "European"
88 (add-hook 'quail-package-alist '("latin-4" "quail-latin")) 95 '("quail-latin-2" quail-use-package "quail/latin"))
89 (add-hook 'quail-package-alist '("latin-5" "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"))
90 102
91 (define-language-environment 'european 103 (define-language-environment 'european
92 "European (for Latin-1 through Latin-5)" 104 "European (for Latin-1 through Latin-5)"
93 (lambda () 105 (lambda ()
94 ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1) 106 ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1)
99 ;;(setq display-coding-system 'iso-8859-1) 111 ;;(setq display-coding-system 'iso-8859-1)
100 ;;(setq keyboard-coding-system 'iso-8859-1) 112 ;;(setq keyboard-coding-system 'iso-8859-1)
101 (setq-default quail-current-package 113 (setq-default quail-current-package
102 (assoc "latin-1" quail-package-alist)) 114 (assoc "latin-1" quail-package-alist))
103 )) 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