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