ethiopic-ucs
=big5-cdp
=gt
+ =adobe-japan1-0
+ =adobe-japan1-1
+ =adobe-japan1-2
+ =adobe-japan1-3
+ =adobe-japan1-4
+ =adobe-japan1-5
+ =adobe-japan1-6
+ =hanyo-denshi/ja
+ =hanyo-denshi/jb
+ =hanyo-denshi/jc
+ =hanyo-denshi/jd
+ =hanyo-denshi/ft
+ =hanyo-denshi/ia
+ =hanyo-denshi/ib
+ =hanyo-denshi/hg
ideograph-daikanwa-2
ideograph-daikanwa
=cbeta
=>>jis-x0213-1@2004
=>>jis-x0213-2
=>>jis-x0208@1978
+ =>>hanyo-denshi/ft
+ =>>hanyo-denshi/ks
=>>gt
=>jis-x0208@usual
=>jis-x0208
=>daikanwa
=big5
=big5-eten
+ =>gt-k
=zinbun-oracle
=>zinbun-oracle
=ruimoku-v6
(format
(cond ((memq name '(=shinjigen
=shinjigen@1ed
- =shinjigen@rev =shinjigen/+p@rev))
+ =shinjigen@rev =shinjigen/+p@rev
+ =daikanwa/ho))
"(%-18s . %04d)\t; %c")
((eq name '=shinjigen@1ed/24pr)
"(%-18s . %04d)\t; %c")
((or (memq name '(=daikanwa
=daikanwa@rev1 =daikanwa@rev2
+ =daikanwa/+p =daikanwa/+2p
=>>daikanwa =>daikanwa
- =gt =>>gt =>gt =gt-k =>>gt-k =cbeta
+ =gt =>>gt =>gt =gt-k =>>gt-k =>gt-k =cbeta
=zinbun-oracle =>zinbun-oracle))
(string-match "^=adobe-" (symbol-name name)))
"(%-18s . %05d)\t; %c")
- ((eq name 'mojikyo)
+ ((memq name '(=hanyo-denshi/ks =>>hanyo-denshi/ks mojikyo))
"(%-18s . %06d)\t; %c")
((>= (charset-dimension name) 2)
"(%-18s . #x%04X)\t; %c")
(eq name 'ideographic-combination)
(eq name 'ideographic-)
(eq name '=decomposition)
- (string-match "^=>decomposition" (symbol-name name))
+ (string-match "^=>*decomposition\\(@[^*]+\\)?$"
+ (symbol-name name))
(string-match "^\\(->\\|<-\\)[^*]*$" (symbol-name name))
(string-match "^\\(->\\|<-\\)[^*]*\\*sources$"
(symbol-name name))