Mercurial > emacs
comparison lisp/language/english.el @ 89483:2f877ed80fa6
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 12:53:41 +0000 |
parents | 375f2633d815 3cdeb8452578 |
children | 68c22ea6027c |
comparison
equal
deleted
inserted
replaced
88123:375f2633d815 | 89483:2f877ed80fa6 |
---|---|
1 ;;; english.el --- support for English -*- no-byte-compile: t -*- | 1 ;;; english.el --- support for English -*- no-byte-compile: t -*- |
2 | 2 |
3 ;; Copyright (C) 1997 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) 2003 | |
6 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
7 ;; Registration Number H13PRO009 | |
5 | 8 |
6 ;; Keywords: multibyte character, character set, syntax, category | 9 ;; Keywords: multibyte character, character set, syntax, category |
7 | 10 |
8 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
9 | 12 |
36 (sample-text . "Hello!, Hi!, How are you?") | 39 (sample-text . "Hello!, Hi!, How are you?") |
37 (documentation . "\ | 40 (documentation . "\ |
38 Nothing special is needed to handle English.") | 41 Nothing special is needed to handle English.") |
39 )) | 42 )) |
40 | 43 |
44 ;; Mostly because we can now... | |
45 (define-coding-system 'ebcdic-us | |
46 "US version of EBCDIC" | |
47 :coding-type 'charset | |
48 :charset-list '(ebcdic-us) | |
49 :mnemonic ?*) | |
50 | |
51 (define-coding-system 'ebcdic-uk | |
52 "UK version of EBCDIC" | |
53 :coding-type 'charset | |
54 :charset-list '(ebcdic-uk) | |
55 :mnemonic ?*) | |
56 | |
57 (define-coding-system 'ibm1047 | |
58 "A version of EBCDIC used in OS/390 Unix" ; says Groff | |
59 :coding-type 'charset | |
60 :charset-list '(ibm1047) | |
61 :mnemonic ?*) | |
62 (define-coding-system-alias 'cp1047 'ibm1047) | |
63 | |
41 ;; Make "ASCII" an alias of "English" language environment. | 64 ;; Make "ASCII" an alias of "English" language environment. |
42 (set-language-info-alist | 65 (set-language-info-alist |
43 "ASCII" (cdr (assoc "English" language-info-alist))) | 66 "ASCII" (cdr (assoc "English" language-info-alist))) |
44 | 67 |
45 ;;; english.el ends here | 68 ;;; english.el ends here |