(setq ret (or (encode-char object '=chise-hdic-tsj)
(encode-char object '===chise-hdic-tsj)))
(setq ret (decode-char '===chise-hdic-tsj ret))
- (setq ret (get-char-attribute ret '=hdic-tsj-entry-id)))
+ (setq ret (get-char-attribute ret 'hdic-tsj-word-id)))
(princ
(format "<a href=\"https://viewer.hdic.jp/tsj2/%s\"
>%s</a>"