From 6e3de240e8cb8bdcf05344d3f7096022898bac2c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 9 Mar 2017 22:36:55 +0900 Subject: [PATCH] (mapping-table-read-file): Add special code for mapping between JC3-67A3 and U+FA66. --- lisp/utf-2000/read-maps.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 @@ -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) -- 1.7.10.4