# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1211547072 0
# Node ID 1e646032185f8ff632987c3cf43e708d539d56e6
# Parent  c9ffc8f7ca443463d2efb38918c4505f129661ea
Don't define the charset `emacs'
here, just put :docstring, :short-name, and :long-name.

diff -r c9ffc8f7ca44 -r 1e646032185f lisp/international/mule-conf.el
--- 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"