X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fethiopic.el;h=4963470e5a8fa538f27c5dc6b71f2a23a792f3c0;hb=de9fc6498b77264c839170d08e044fa2007cd29e;hp=9c31637aa2702fe7b25a006a0be7be1ff2d9922d;hpb=1e7fd761ecf5fd2208bde8e30fc6f7cbf789b7db;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/ethiopic.el b/lisp/mule/ethiopic.el
index 9c31637..4963470 100644
--- a/lisp/mule/ethiopic.el
+++ b/lisp/mule/ethiopic.el
@@ -28,15 +28,6 @@
 
 ;;; Code:
 
-;; Ethiopic
-(make-charset 'ethiopic "Ethiopic"
-	      '(registry "Ethio"
-		dimension 2
-		chars 94
-		final ?3
-		graphic 0
-		))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ETHIOPIC
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -65,7 +56,7 @@
 
 ;; (setq font-ccl-encoder-alist
 ;;       (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
-(set-charset-ccl-program 'ethiopic ccl-encode-ethio-font)
+(set-charset-ccl-program 'ethiopic 'ccl-encode-ethio-font)
 
 (set-language-info-alist
  "Ethiopic" '((setup-function . setup-ethiopic-environment-internal)