From dd7082c83e05bb4dca11526dec1a0d5925b755f7 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 17 Jan 2022 14:19:31 +0900 Subject: [PATCH] - Mount `hdic-ktb-entry-type' instead of `hdic-ktb-type'. - Mount `hdic-ktb-ndl-pid'. - Mount `<-HDIC-SYP@KTB' instead of `<-same@SYP/KTB'. - Mount `->HDIC-SYP@KTB' instead of `->same@SYP/KTB'. (www-format-encode-string): Add settings for `===chise-hdic-ktb' and `=chise-hdic-ktb'. --- cwiki-common.el | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/cwiki-common.el b/cwiki-common.el index 0e1f7c5..937afa5 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -69,12 +69,13 @@ (mount-char-attribute-table '=hdic-ktb-entry-id) (mount-char-attribute-table 'hdic-syp-description) (mount-char-attribute-table 'hdic-ktb-description) -(mount-char-attribute-table 'hdic-ktb-type) +(mount-char-attribute-table 'hdic-ktb-entry-type) (mount-char-attribute-table 'hdic-ktb-diff) (mount-char-attribute-table 'hdic-ktb-syp-id) (mount-char-attribute-table 'hdic-ktb-yy-id) -(mount-char-attribute-table '<-same@SYP/KTB) -(mount-char-attribute-table '->same@SYP/KTB) +(mount-char-attribute-table 'hdic-ktb-ndl-pid) +(mount-char-attribute-table '<-HDIC-SYP@KTB) +(mount-char-attribute-table '->HDIC-SYP@KTB) (defvar est-hide-cgi-mode nil) (defvar est-view-url-prefix "..") @@ -1176,6 +1177,20 @@ class=\"tooltiptext\">%s" t 'literal))) (goto-char (point-min)) + (while (re-search-forward "&\\(R-\\)?CHISE-HDIC-KTB\\([0-9A-F]+\\);" nil t) + (setq code (string-to-int (match-string 2) 16)) + (setq char (decode-char '===chise-hdic-ktb code)) + (when (setq ret (get-char-attribute char '=hdic-ktb-entry-id)) + (replace-match + (format + "
\"HDIC-KTB-%s\"%s
" + ret ret + (charset-description '===chise-hdic-ktb)) + t 'literal))) + + (goto-char (point-min)) (while (re-search-forward "&\\(o-\\|G-\\|g2-\\|R-\\)?AJ1-\\([0-9]+\\);" nil t) (setq code (string-to-int (match-string 2))) (replace-match -- 1.7.10.4