From: MORIOKA Tomohiko 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/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6e3de240e8cb8bdcf05344d3f7096022898bac2c;p=chise%2Fxemacs-chise.git.1 (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 @@ -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)