Mercurial > hg > xemacs-beta

comparison lisp/mule/english.el @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
1 ;;; english.el --- English support 1 ;;; english.el --- English support
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997,1999 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 5
7 ;; Keywords: multibyte character, character set, syntax, category 6 ;; Keywords: multibyte character, character set, syntax, category
8 7
9 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
10 9
27 26
28 ;; We need nothing special to support English on Emacs. Selecting 27 ;; We need nothing special to support English on Emacs. Selecting
29 ;; English as a language environment is one of the ways to reset 28 ;; English as a language environment is one of the ways to reset
30 ;; various multilingual environment to the original settting. 29 ;; various multilingual environment to the original settting.
31 30
32 ;; modified for XEmacs by MORIOKA Tomohiko
33
34 ;;; Code 31 ;;; Code
35 32
36 (defun setup-english-environment () 33 (defun setup-english-environment ()
37 "Reset multilingual environment of Emacs to the default status. 34 "Reset multilingual environment of Emacs to the default status.
38 The default status is as follows. 35 See the function `reset-language-environment' for more detail."
39
40 The default value of enable-multibyte-characters is t.
41
42 The default value of buffer-file-coding-system is nil.
43 The coding system for terminal output is nil.
44 The coding system for keyboard input is nil.
45
46 The order of priorities of coding categories and the coding system
47 bound to each category are as follows
48 coding category coding system
49 --------------------------------------------------
50 coding-category-iso-7 iso-2022-7bit
51 coding-category-iso-8-1 iso-8859-1
52 coding-category-iso-8-2 iso-8859-1
53 coding-category-iso-7-else iso-2022-7bit-lock
54 coding-category-iso-8-else iso-2022-8bit-ss2
55 coding-category-emacs-mule no-conversion
56 coding-category-sjis japanese-shift-jis
57 coding-category-big5 chinese-big5
58 coding-category-binarry no-conversion
59 "
60 (interactive) 36 (interactive)
61 ;; (setq-default enable-multibyte-characters t) 37 (reset-language-environment))
62
63 ;; (setq coding-category-iso-7 'iso-2022-7bit
64 ;; coding-category-iso-8-1 'iso-8859-1
65 ;; coding-category-iso-8-2 'iso-8859-1
66 ;; coding-category-iso-7-else 'iso-2022-7bit-lock
67 ;; coding-category-iso-8-else 'iso-2022-8bit-ss2
68 ;; coding-category-emacs-mule 'no-conversion
69 ;; coding-category-sjis 'japanese-shift-jis
70 ;; coding-category-big5 'chinese-big5
71 ;; coding-category-binary 'binary)
72 (set-coding-category-system 'iso-7 'iso-2022-7bit)
73 (set-coding-category-system 'iso-8-1 'iso-8859-1)
74 (set-coding-category-system 'iso-8-2 'iso-8859-1)
75 (set-coding-category-system 'iso-lock-shift 'iso-2022-lock)
76 (set-coding-category-system 'iso-8-designate 'ctext)
77 (set-coding-category-system 'no-conversion 'no-conversion)
78 (set-coding-category-system 'shift-jis 'shift_jis)
79 (set-coding-category-system 'big5 'big5)
80
81 ;; (set-coding-priority
82 ;; '(coding-category-iso-7
83 ;; coding-category-iso-8-2
84 ;; coding-category-iso-8-1
85 ;; coding-category-iso-7-else
86 ;; coding-category-iso-8-else
87 ;; coding-category-emacs-mule
88 ;; coding-category-raw-text
89 ;; coding-category-sjis
90 ;; coding-category-big5
91 ;; coding-category-binary))
92 (set-coding-priority-list
93 '(iso-7
94 iso-8-2
95 iso-8-1
96 iso-8-designate
97 iso-lock-shift
98 no-conversion
99 shift-jis
100 big5))
101
102 (set-default-coding-systems nil)
103 ;; Don't alter the terminal and keyboard coding systems here.
104 ;; The terminal still supports the same coding system
105 ;; that it supported a minute ago.
106 ;;; (set-terminal-coding-system-internal nil)
107 ;;; (set-keyboard-coding-system-internal nil)
108
109 ;;(setq nonascii-insert-offset 0)
110 )
111 38
112 (set-language-info-alist 39 (set-language-info-alist
113 "English" '((setup-function . setup-english-environment) 40 "English" '((tutorial . "TUTORIAL")
114 (tutorial . "TUTORIAL") 41 (charset ascii)
115 (charset . (ascii))
116 (sample-text . "Hello!, Hi!, How are you?") 42 (sample-text . "Hello!, Hi!, How are you?")
117 (documentation . "\ 43 (documentation . "\
118 Nothing special is needed to handle English.") 44 Nothing special is needed to handle English.")
119 )) 45 ))
120 46