From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 9 Mar 2017 13:36:55 +0000 (+0900)
Subject: (mapping-table-read-file): Add special code for mapping between
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6e3de240e8cb8bdcf05344d3f7096022898bac2c;p=chise%2Fxemacs-chise.git

(mapping-table-read-file): Add special code for mapping between
JC3-67A3 and U+FA66.
---

diff --git a/lisp/utf-2000/read-maps.el b/lisp/utf-2000/read-maps.el
index 40371c6..fe02723 100644
--- a/lisp/utf-2000/read-maps.el
+++ b/lisp/utf-2000/read-maps.el
@@ -1,6 +1,6 @@
 ;;; read-maps.el --- Read mapping-tables.
 
-;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2008, 2012, 2014, 2015
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2008, 2012, 2014, 2015, 2017
 ;;   MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
@@ -156,6 +156,10 @@ UCS-REGEXP is a regular expression to match against
 	(if (and ucs-ccs ucs (not ucs-code))
 	    (setq ucs-code ucs
 		  ucs nil))
+	(if (and (eq ccs '=jef-china3)
+		 (eq ucs #xFA66))
+	    (setq ucs-ccs '=ucs@JP
+		  drep-ucs-ccs '==ucs@JP))
 	(when (setq chr (decode-char ccs code))
 	  (unless (eq (encode-char chr ccs 'defined-only)
 		      code)