- (put-char-attribute rep-char '==jis-x0213-1@2000 code)
- (remove-char-attribute rep-char '==jis-x0213-1)
- (remove-char-attribute rep-char '==jis-x0213-1@2004)
- (setq ucs (or (encode-char rep-char '==ucs@jis/2000)
- ucs))
- (remove-char-attribute rep-char '==ucs@jis)
- (remove-char-attribute rep-char '==ucs@jis/2004)
+ (unless (and (= ku 47)(= ten 64))
+ (put-char-attribute rep-char '==jis-x0213-1@2000 code)
+ (remove-char-attribute rep-char '==jis-x0213-1)
+ (remove-char-attribute rep-char '==jis-x0213-1@2004)
+ (setq ucs (or (encode-char rep-char '==ucs@jis/2000)
+ ucs))
+ (remove-char-attribute rep-char '==ucs@jis)
+ (remove-char-attribute rep-char '==ucs@jis/2004))