- (if (integerp (cdr x))
- (setcar x (decode-char 'japanese-jisx0208 (car x)))
- (setcar x (decode-char 'japanese-jisx0212 (car x)))
- (setcdr x (cadr x))))
+ (let ((code (logand (car x) #x7F7F)))
+ (if (integerp (cdr x))
+ (setcar x (decode-char 'japanese-jisx0208 code))
+ (setcar x (decode-char 'japanese-jisx0212 code))
+ (setcdr x (cadr x)))))