- (if (and (setq a-ir (charset-property ka 'iso-ir))
- (if (= a-ir 177)
- (if (= (charset-id ka) -177)
- t
- (setq a-ir nil))
- t))
- (if (and (setq b-ir (charset-property kb 'iso-ir))
- (if (= b-ir 177)
- (if (= (charset-id kb) -177)
- t
- (setq b-ir nil))
- t))