Mercurial > hg > xemacs-beta

comparison lisp/mule/european-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents cca96a509cfe
children 43dd3413c7c7
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
22 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
23 23
24 ;;; Synched up with: Mule 2.3. 24 ;;; Synched up with: Mule 2.3.
25 25
26 ;; For syntax of Latin-1 characters. 26 ;; For syntax of Latin-1 characters.
27 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B' 27 (loop for c from 64 to 127 ; from 'À' to 'ÿ'
28 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) 28 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
29 29
30 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space 30 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
31 (modify-syntax-entry ?,AW(B "_") 31 (modify-syntax-entry ?× "_")
32 (modify-syntax-entry ?,Aw(B "_") 32 (modify-syntax-entry ?÷ "_")
33 33
34 ;; For syntax of Latin-2 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) 35 (loop for c in '(?-B¡ ?£ ?¥ ?¦ ?© ?ª ?« ?¬ ?® ?¯ ?± ?³ ?µ ?¶ ?¹ ?º ?» ?¼)-A
36 do (modify-syntax-entry c "w")) 36 do (modify-syntax-entry c "w"))
37 37
38 (loop for c from 62 to 126 38 (loop for c from 62 to 126
39 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")) 39 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
40 40
41 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space 41 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
42 (modify-syntax-entry ?,BW(B ".") 42 (modify-syntax-entry ?-B× ".")-A
43 (modify-syntax-entry ?,Bw(B ".") 43 (modify-syntax-entry ?-B÷ ".")-A
44 44
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46 ;;; EUROPEANS 46 ;;; EUROPEANS
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48 48
80 charset-g2 t 80 charset-g2 t
81 charset-g3 t 81 charset-g3 t
82 mnemonic "MIME/Ltn-5" 82 mnemonic "MIME/Ltn-5"
83 )) 83 ))
84 84
85 ;;(add-hook 'quail-package-alist '("latin-1" "quail/latin")) 85 (add-hook 'quail-package-alist '("latin-1" "quail-latin"))
86 ;;(add-hook 'quail-package-alist '("latin-2" "quail/latin")) 86 (add-hook 'quail-package-alist '("latin-2" "quail-latin"))
87 ;;(add-hook 'quail-package-alist '("latin-3" "quail/latin")) 87 (add-hook 'quail-package-alist '("latin-3" "quail-latin"))
88 ;;(add-hook 'quail-package-alist '("latin-4" "quail/latin")) 88 (add-hook 'quail-package-alist '("latin-4" "quail-latin"))
89 ;;(add-hook 'quail-package-alist '("latin-5" "quail/latin")) 89 (add-hook 'quail-package-alist '("latin-5" "quail-latin"))
90 90
91 (define-language-environment 'european 91 (define-language-environment 'european
92 "European (for Latin-1 through Latin-5)" 92 "European (for Latin-1 through Latin-5)"
93 (lambda () 93 (lambda ()
94 ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1) 94 ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1)
96 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1 96 ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1
97 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1 97 (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1
98 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1 98 (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1
99 ;;(setq display-coding-system 'iso-8859-1) 99 ;;(setq display-coding-system 'iso-8859-1)
100 ;;(setq keyboard-coding-system 'iso-8859-1) 100 ;;(setq keyboard-coding-system 'iso-8859-1)
101 ;;(setq-default quail-current-package 101 (setq-default quail-current-package
102 ;; (assoc "latin-1" quail-package-alist)))) 102 (assoc "latin-1" quail-package-alist))
103 )) 103 ))