From a2e7005a5e6c061dddbde3664c940215e74ff30a Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 11 Feb 2016 18:51:35 +0900 Subject: [PATCH] (est-coded-charset-priority-list): Add `===ucs@iso'. (www-format-encode-string): Use GlyphWiki to display SIP characters. (coded-charset-GlyphWiki-id-alist): Add setting for `==ucs@iso'. --- cwiki-common.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/cwiki-common.el b/cwiki-common.el index 13462d1..97fbc62 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -83,6 +83,7 @@ =>>ucs@jis =>>ucs@cns =>>ucs@ks =>>>ucs@iso =>>>ucs@unicode =>>>ucs@jis =>>>ucs@cns =>>>ucs@ks + ===ucs@iso =ruimoku-v6 =big5 =big5-cdp @@ -984,6 +985,17 @@ style=\"vertical-align:middle; width: 48px; height: 48px\">" t 'literal)) (goto-char (point-min)) + (while (re-search-forward "&\\(o-\\|G-\\|g2-\\)?IU-\\([0-9A-F]+\\);" nil t) + (setq code (string-to-int (match-string 2) 16)) + (replace-match + (format "\"u%04x\"" + code + code + www-format-char-img-style) + t 'literal)) + + (goto-char (point-min)) (while (re-search-forward "&\\(o-\\|G-\\|g2-\\|R-\\)?U-i\\([0-9]+\\)\\+\\([0-9A-F]+\\);" nil t) (setq plane (string-to-int (match-string 2)) code (string-to-int (match-string 3) 16)) @@ -1188,6 +1200,7 @@ style=\"vertical-align:middle\">" (=>>hanyo-denshi/ks "koseki-" 6 d nil) (=ucs@jis "u" 4 x nil) (==ucs@jis "u" 4 x nil) + (==ucs@iso "u" 4 x nil) (===ucs@jis "u" 4 x nil) (=ucs@cns "u" 4 x "-t") (==ucs@cns "u" 4 x "-t") -- 1.7.10.4