diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-05-23 12:54:18 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-05-23 12:54:18 +0000 |
| commit | 67ef7528415bcbc84ce29c1403b8f1ae74e469a3 (patch) | |
| tree | ed785a2a80c5242e36860b854cb4a3ebefd9688e /lisp/international/mule-conf.el | |
| parent | 6c652bebc2f0d3d69ac9704649ce013cac5a7a97 (diff) | |
| download | emacs-67ef7528415bcbc84ce29c1403b8f1ae74e469a3.tar.gz | |
Don't define the charset `emacs'
here, just put :docstring, :short-name, and :long-name.
Diffstat (limited to 'lisp/international/mule-conf.el')
| -rw-r--r-- | lisp/international/mule-conf.el | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 6b87374f2f1..6fe69aa6630 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -68,6 +68,14 @@ ;; :ascii-compatible-p t ;; :code-offset 0) ;; +;; (define-charset 'emacs +;; "" +;; :dimension 3 +;; :code-space [0 255 0 255 0 63] +;; :ascii-compatible-p t +;; :supplementary-p t +;; :code-offset 0) +;; ;; (define-charset 'eight-bit ;; "" ;; :dimension 1 @@ -94,18 +102,18 @@ 'unicode :short-name "Unicode") (put-charset-property 'unicode :long-name "Unicode (ISO10646)") +(put-charset-property + 'emacs :docstring "Full Emacs charset (excluding eight bit chars)") +(put-charset-property + 'emacs :short-name "Emacs") +(put-charset-property + 'emacs :long-name "Emacs") + (put-charset-property 'eight-bit :docstring "Raw bytes 0-255") (put-charset-property 'eight-bit :short-name "Raw bytes") (define-charset-alias 'ucs 'unicode) -(define-charset 'emacs - "Full Emacs characters" - :ascii-compatible-p t - :code-space [ 0 255 0 255 0 63 ] - :code-offset 0 - :supplementary-p t) - (define-charset 'latin-iso8859-1 "Right-Hand Part of ISO/IEC 8859/1 (Latin-1): ISO-IR-100" :short-name "RHP of Latin-1" |