Mercurial > hg > xemacs-beta
comparison lisp/mule/english.el @ 4072:aa28d959af41
[xemacs-hg @ 2007-07-22 22:03:29 by aidan]
Add support for non-ISO2022 8 bit fixed-width coding-systems
author | aidan |
---|---|
date | Sun, 22 Jul 2007 22:04:14 +0000 |
parents | fbf54025c136 |
children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
4071:d607d13fca67 | 4072:aa28d959af41 |
---|---|
29 ;; 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 |
30 ;; various multilingual environment to the original setting. | 30 ;; various multilingual environment to the original setting. |
31 | 31 |
32 ;;; Code | 32 ;;; Code |
33 | 33 |
34 ;; ASCII with right-to-left direction. | |
35 (make-charset 'ascii-right-to-left | |
36 "ASCII (left half of ISO 8859-1) with right-to-left direction" | |
37 '(dimension | |
38 1 | |
39 registries ["ISO8859-1"] | |
40 chars 94 | |
41 columns 1 | |
42 direction r2l | |
43 final ?B | |
44 graphic 0 | |
45 short-name "rev ASCII" | |
46 long-name "ASCII with right-to-left direction" | |
47 )) | |
48 | |
49 (set-language-info-alist | 34 (set-language-info-alist |
50 "English" '((tutorial . "TUTORIAL") | 35 "English" '((tutorial . "TUTORIAL") |
51 (locale "en" "C") | 36 (locale "en" "C") |
52 (charset ascii) | 37 (charset ascii) |
53 (coding-system iso-8859-1) | 38 (coding-system iso-8859-1) |