From 43957f0e3f59fb606be44aaf388f1f9c9c2e2f7f Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 20 Jan 2011 11:19:32 +0000 Subject: [PATCH] (char-db-coded-charset-priority-list): Add `=>ucs@ks'. (insert-char-attributes): Delete special code for `=>ucs@ks'; treat it as a coded-charset. --- lisp/utf-2000/char-db-util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index efa0cab..a86e3af 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -1,7 +1,7 @@ ;;; char-db-util.el --- Character Database utility -*- coding: utf-8-er; -*- ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, -;; 2007, 2008, 2009, 2010 MORIOKA Tomohiko. +;; 2007, 2008, 2009, 2010, 2011 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE. @@ -177,6 +177,7 @@ =>ucs@jis =>ucs@JP =>ucs@cns + =>ucs@ks =>>ucs@unicode =>>ucs@jis =>>ucs@cns @@ -648,7 +649,7 @@ name value (decode-char '=ucs value) line-breaking)) (setq attributes (delq name attributes)))) - (dolist (name '(=>ucs@gb =>ucs@ks =>ucs@big5)) + (dolist (name '(=>ucs@gb =>ucs@big5)) (when (and (memq name attributes) (setq value (get-char-attribute char name))) (insert (format "(%-18s . #x%04X)\t; %c%s" -- 1.7.10.4