- (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
- (cond
- ((and (charset-final ka)
- (>= (charset-final ka) ?@))
- (if (and (charset-final kb)
- (>= (charset-final kb) ?@))
- (< (charset-final ka)(charset-final kb))
- t))
- ((and (charset-final kb)
- (>= (charset-final kb) ?@))
- nil)
- (t
- (< (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))