(defun ideograph-char< (a b)
(let ((a-m-m (get-char-attribute a 'ideograph-daikanwa))
(b-m-m (get-char-attribute b 'ideograph-daikanwa))
(defun ideograph-char< (a b)
(let ((a-m-m (get-char-attribute a 'ideograph-daikanwa))
(b-m-m (get-char-attribute b 'ideograph-daikanwa))