From e70ca641a3ced4a5bb5e32f94a51e1bcb6a610d4 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 7 Feb 2018 03:11:58 +0900 Subject: [PATCH] (char-db-make-char-spec): Try to omit `=ucs@big5'. --- 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 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)) -- 1.7.10.4