Mercurial > emacs
changeset 95262:1e646032185f
Don't define the charset `emacs'
here, just put :docstring, :short-name, and :long-name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 23 May 2008 12:51:12 +0000 |
| parents | c9ffc8f7ca44 |
| children | e0eb4e6f3741 |
| files | lisp/international/mule-conf.el |
| diffstat | 1 files changed, 15 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-conf.el Fri May 23 12:50:07 2008 +0000 +++ b/lisp/international/mule-conf.el Fri May 23 12:51:12 2008 +0000 @@ -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"