From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 15 Mar 2019 17:59:50 +0000 (+0900)
Subject: Prefer Daijiten to Shinjigen.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=24db798f475007ed45c387fa52c8f025fcd5dac0;p=chise%2Fxemacs-chise.git

Prefer Daijiten to Shinjigen.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 0666324..b9d5bf8 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -2849,6 +2849,39 @@
 		  direction	l2r
 		  mother	=>>daikanwa/ho))
 
+  (make-charset '=daijiten
+		"Daijiten dictionary glyphs"
+		`(long-name	"Daijiten dictionary"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  registry	"Daijiten-*"
+		  min-code	#xE50000
+		  max-code	,(+ #xE50000 14923)
+		  code-offset	#xE50000))
+  (make-charset '==daijiten
+		"Daijiten dictionary glyph-forms"
+		`(long-name	"Daijiten dictionary"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=daijiten
+		  registry	"Daijiten-*"))
+  (make-charset '===daijiten
+		"Daijiten dictionary glyph-images"
+		`(long-name	"Daijiten dictionary"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	==daijiten
+		  registry	"Daijiten-*"))
+
   (make-charset '=shinjigen
 		"Kadokawa ShinJigen dictionary (common parts)"
 		`(long-name	"Shinjigen common parts"
@@ -2979,39 +3012,6 @@
 	    hzk-max (+ hzk-min 65535))
       (setq i (1+ i))))
 
-  (make-charset '=daijiten
-		"Daijiten dictionary glyphs"
-		`(long-name	"Daijiten dictionary"
-		  chars		256
-		  dimension	2
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  registry	"Daijiten-*"
-		  min-code	#xE50000
-		  max-code	,(+ #xE50000 14923)
-		  code-offset	#xE50000))
-  (make-charset '==daijiten
-		"Daijiten dictionary glyph-forms"
-		`(long-name	"Daijiten dictionary"
-		  chars		256
-		  dimension	2
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  mother	=daijiten
-		  registry	"Daijiten-*"))
-  (make-charset '===daijiten
-		"Daijiten dictionary glyph-images"
-		`(long-name	"Daijiten dictionary"
-		  chars		256
-		  dimension	2
-		  columns	2
-		  graphic	2
-		  direction	l2r
-		  mother	==daijiten
-		  registry	"Daijiten-*"))
-
   (make-charset '===hng-jou "HNG:誠實論卷八（P.2179）"
 		'(long-name "HNG/P2179"
 		  chars		256