Mercurial > hg > xemacs-beta

comparison lisp/mule/english.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 95016f13131a
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; english.el --- English support 1 ;;; english.el --- English support
2 2
3 ;; Copyright (C) 1997,1999 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
5 6
6 ;; Keywords: multibyte character, character set, syntax, category 7 ;; Keywords: multibyte character, character set, syntax, category
7 8
8 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
9 10
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;; We need nothing special to support English on Emacs. Selecting 28 ;; We need nothing special to support English on Emacs. Selecting
28 ;; English as a language environment is one of the ways to reset 29 ;; English as a language environment is one of the ways to reset
29 ;; various multilingual environment to the original setting. 30 ;; various multilingual environment to the original settting.
31
32 ;; modified for XEmacs by MORIOKA Tomohiko
30 33
31 ;;; Code 34 ;;; Code
32 35
33 (defun setup-english-environment () 36 (defun setup-english-environment ()
34 "Reset multilingual environment of Emacs to the default status. 37 "Reset multilingual environment of Emacs to the default status.
35 See the function `reset-language-environment' for more detail." 38 The default status is as follows.
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 "
36 (interactive) 60 (interactive)
37 (reset-language-environment)) 61 ;; (setq-default enable-multibyte-characters t)
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 )
38 111
39 (set-language-info-alist 112 (set-language-info-alist
40 "English" '((tutorial . "TUTORIAL") 113 "English" '((setup-function . setup-english-environment)
41 (charset ascii) 114 (tutorial . "TUTORIAL")
115 (charset . (ascii))
42 (sample-text . "Hello!, Hi!, How are you?") 116 (sample-text . "Hello!, Hi!, How are you?")
43 (documentation . "\ 117 (documentation . "\
44 Nothing special is needed to handle English.") 118 Nothing special is needed to handle English.")
45 )) 119 ))
46 120