From 029f0a812c98a7def34e088b62b3fc1ecae85305 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 31 Oct 2013 16:42:50 +0900 Subject: [PATCH] (=>>>ucs@ks): Changed to an alias for `=ucs@ks'. --- lisp/mule/mule-conf.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index 342fbd6..5997e66 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -2705,16 +2705,16 @@ ;; direction l2r ;; =>iso-ir 177 ;; mother =>>>ucs@jis)) - (make-charset '=>>>ucs@ks - "UCS Representative glyph-forms for Korean Standards" - '(long-name "UCS glyph-forms for KS" - chars 256 - dimension 3 - columns 2 - graphic 2 - direction l2r - =>iso-ir 177 - mother =>>>ucs@unicode)) + ;; (make-charset '=>>>ucs@ks + ;; "UCS Representative glyph-forms for Korean Standards" + ;; '(long-name "UCS glyph-forms for KS" + ;; chars 256 + ;; dimension 3 + ;; columns 2 + ;; graphic 2 + ;; direction l2r + ;; =>iso-ir 177 + ;; mother =>>>ucs@unicode)) ;; (make-charset '=>>>ucs@cns ;; "UCS Representative glyph-forms for CNS 11643 sources" ;; '(long-name "UCS glyph-forms for CNS" @@ -2922,6 +2922,7 @@ =>iso-ir 177 mother =ucs@unicode)) (define-charset-alias 'ucs-ks '=ucs@ks) + (define-charset-alias '=>>>ucs@ks '=ucs@ks) (make-charset '=ucs-bmp@ks "ISO/IEC 10646 BMP for KS" '(long-name "BMP for KS" -- 1.7.10.4