- (when (setq chr (decode-char 'chinese-big5-cdp big5))
- (unless (get-char-attribute chr 'chinese-big5-cdp)
- (put-char-attribute chr 'chinese-big5-cdp big5))))
+ (when (setq chr (decode-char '=big5-cdp big5))
+ (unless (get-char-attribute chr '=big5-cdp)
+ (put-char-attribute chr '=big5-cdp big5))))