projects
/
chise
/
ids.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[chise/ids.git]
/
ids-read.el
diff --git
a/ids-read.el
b/ids-read.el
index
54aff89
..
1693763
100644
(file)
--- a/
ids-read.el
+++ b/
ids-read.el
@@
-1,6
+1,6
@@
;;; ids-read.el --- Reader for IDS-* files
;;; ids-read.el --- Reader for IDS-* files
-;; Copyright (C) 2002, 2003, 2004, 2020 MORIOKA Tomohiko
+;; Copyright (C) 2002, 2003, 2004, 2020, 2021 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
@@
-108,6
+108,9
@@
((string-match "CB\\([0-9]+\\)" chs)
(decode-char 'ideograph-cbeta
(string-to-int (match-string 1 chs))))
((string-match "CB\\([0-9]+\\)" chs)
(decode-char 'ideograph-cbeta
(string-to-int (match-string 1 chs))))
+ ((string-match "SW-JIGUGE-\\([0-9]+\\)" chs)
+ (decode-char '=shuowen-jiguge
+ (string-to-int (match-string 1 chs))))
))
(when char
(when (and (>= (length ids) 3)
))
(when char
(when (and (>= (length ids) 3)