From: MORIOKA Tomohiko Date: Tue, 6 Feb 2018 18:11:58 +0000 (+0900) Subject: (char-db-make-char-spec): Try to omit `=ucs@big5'. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e70ca641a3ced4a5bb5e32f94a51e1bcb6a610d4;p=chise%2Fxemacs-chise.git.1 (char-db-make-char-spec): Try to omit `=ucs@big5'. --- diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 6a227b8..806b153 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,2011,2012,2013,2014,2015,2016,2017 MORIOKA Tomohiko. +;; 2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE. @@ -474,7 +474,8 @@ ;; =gt-k =jis-x0208@1997 )) - (eq (charset-property ccs 'iso-ir) 177) + (and (eq (charset-property ccs 'iso-ir) 177) + (not (eq (charset-name ccs) '=ucs@big5))) ;; (string-match "=ucs@" (symbol-name ccs)) ) (setq ccs (charset-name ccs))