X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fethiopic.el;h=66e08edb31516dfc1ad851a4aba3134e0c71d5cd;hb=042cabb13b0419d8aa5cfac9e087d78730d1dbc7;hp=f7ddcaa062d0a42398770c4ff83435a5c8c47886;hpb=976b002b16336930724ae22476014583ad022e7d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/ethiopic.el b/lisp/mule/ethiopic.el
index f7ddcaa..66e08ed 100644
--- a/lisp/mule/ethiopic.el
+++ b/lisp/mule/ethiopic.el
@@ -1,6 +1,6 @@
-;;; ethiopic.el --- Support for Ethiopic
+;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*-
 
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997 MORIOKA Tomohiko
 
@@ -65,7 +65,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)