Commit 5710904d authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(chise-json-normalized-feature<): Prefer nil domain.

(chise-json-char-get-info): Sort parents-spec.
parent a36d3935
......@@ -1318,7 +1318,11 @@
((string< (caar a) (caar b))
)
((eq (caar a) (caar b))
(string< (cdar a) (cdar b)))))
(if (cdar a)
(if (cdar b)
(string< (cdar a) (cdar b))
nil)
t))))
(defun chise-json-other-spec-get-radical-strokes (other-spec)
(let (domain-rs-alist
......@@ -2413,7 +2417,9 @@
(cons domain cell))
radical-strokes-spec))
dest)))
(dolist (cell parents-spec)
(dolist (cell (sort parents-spec
(lambda (a b)
(chise-json-normalized-feature< b a))))
(setq dest
(cons (cons (cond
((equal (car cell) '(<-denotational))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment