- (if (<= (charset-id ka) 1)
- (if (<= (charset-id kb) 1)
- (cond
- ((= (charset-dimension ka)
- (charset-dimension kb))
- (> (charset-id ka)(charset-id kb)))
- (t
- (> (charset-dimension ka)
- (charset-dimension kb))
- ))
- t)
- (if (<= (charset-id kb) 1)
- nil
- (< (charset-id ka)(charset-id kb))))
- nil))
- ((find-charset kb)
- t)
+ (let (a-ir b-ir)
+ (if (setq a-ir (charset-property ka 'iso-ir))
+ (if (setq b-ir (charset-property kb 'iso-ir))
+ (cond
+ ((= a-ir b-ir)
+ (< (charset-id ka)(charset-id kb))
+ )
+ ((= a-ir 177)
+ t)
+ ((= b-ir 177)
+ nil)
+ ((< a-ir
+ b-ir)
+ ))
+ t)
+ (if (charset-property kb 'iso-ir)
+ nil
+ (< (charset-id ka)(charset-id kb)))))
+ nil)
+ )
+ ((find-charset kb))