Tweak japanese.el's loading of dependencies.

* lisp/loadup.el: Explicitly load cp51932 and eucjp-ms.
* lisp/language/japanese.el: Use require rather than load.
* lisp/international/cp51932.el, lisp/international/eucjp-ms.el:
Provide a feature.
* admin/charsets/eucjp-ms.awk, admin/charsets/cp51932.awk:
Provide a feature in the generated file.

diff --git a/admin/charsets/cp51932.awk b/admin/charsets/cp51932.awk
index c8879b302002c3de6235f950311df920d9c9952b..f59e91cdb9c59dec3a7e66f78af428413c149843 100644 (file)
--- a/admin/charsets/cp51932.awk
+++ b/admin/charsets/cp51932.awk
@@ -52,4 +52,6 @@ END {
   print "            (setcar x (cdr x)) (setcdr x tmp)))";
   print "      map)";
   print "  (define-translation-table 'cp51932-encode map))";
+  print "";
+  print "(provide 'cp51932)";
 }

diff --git a/admin/charsets/eucjp-ms.awk b/admin/charsets/eucjp-ms.awk
index 18c19f5fb5512c8abfb2c3a72b30d703ca48dc9b..f17222d901e76c536761f7ed087a2f8a5b66a17d 100644 (file)
--- a/admin/charsets/eucjp-ms.awk
+++ b/admin/charsets/eucjp-ms.awk
@@ -106,5 +106,7 @@ END {
   print "            (setcar x (cdr x)) (setcdr x tmp)))";
   print "      map)";
   print "  (define-translation-table 'eucjp-ms-encode map))";
+  print "";
+  print "(provide 'eucjp-ms)";
 }
 

diff --git a/lisp/international/cp51932.el b/lisp/international/cp51932.el
index a6489268578a5364593d16780c45d207f2bf5a48..cb72356fea0a2d79a3d901c8e65c334f531d9c90 100644 (file)
--- a/lisp/international/cp51932.el
+++ b/lisp/international/cp51932.el
@@ -468,3 +468,5 @@
              (setcar x (cdr x)) (setcdr x tmp)))
        map)
   (define-translation-table 'cp51932-encode map))
+
+(provide 'cp51932)

diff --git a/lisp/international/eucjp-ms.el b/lisp/international/eucjp-ms.el
index 6e4e1e798b0f85f741dee5579d16fe8dd4965403..efb0a2b2d751efb9e4580ec12edd5c4f8b6ed327 100644 (file)
--- a/lisp/international/eucjp-ms.el
+++ b/lisp/international/eucjp-ms.el
@@ -2085,3 +2085,5 @@
              (setcar x (cdr x)) (setcdr x tmp)))
        map)
   (define-translation-table 'eucjp-ms-encode map))
+
+(provide 'eucjp-ms)

diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index ce480252e7ccd2dd45b7e6fc7b2ece2446997949..38159d7b4589e29d5c1e766f38e687d9eb7a2541 100644 (file)
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -34,8 +34,8 @@
 ;;; Code:
 
 ;;; Load translation tables for CP932.
-(load "international/cp51932")
-(load "international/eucjp-ms")
+(require 'cp51932)
+(require 'eucjp-ms)
 
 (define-coding-system 'iso-2022-jp
   "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)."

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 828b19e85e33c9130eb2dc27a9e8a36d68f68b25..525cbad9db7b10118be4866a6b8f389e191d028a 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -178,6 +178,8 @@
 (load "language/romanian")
 (load "language/greek")
 (load "language/hebrew")
+(load "international/cp51932")
+(load "international/eucjp-ms")
 (load "language/japanese")
 (load "language/korean")
 (load "language/lao")

diff --git a/src/lisp.mk b/src/lisp.mk
index 8eb86b7429e3ec4055277fb45aa2a5ff21d374d5..0a431a59d7dc2a0e8f5bfd69d894b813110fc3fe 100644 (file)
--- a/src/lisp.mk
+++ b/src/lisp.mk
@@ -34,10 +34,6 @@
 ## that does not have an explicit .el extension, but beware of any
 ## no-byte-compile ones.
 
-## Confusingly, international/cp51932 and international/eucjp-ms are
-## unconditionally loaded from language/japanese, instead of being
-## loaded directly from loadup.el; FIXME.
-
 ## Note that this list should not include lisp files which might not
 ## be present, like site-load.el and site-init.el; this makefile
 ## expects them all to be either present or buildable.
@@ -96,9 +92,9 @@ lisp = \
        $(lispsource)/language/romanian.elc \
        $(lispsource)/language/greek.elc \
        $(lispsource)/language/hebrew.elc \
-       $(lispsource)/language/japanese.elc \
        $(lispsource)/international/cp51932.el \
        $(lispsource)/international/eucjp-ms.el \
+       $(lispsource)/language/japanese.elc \
        $(lispsource)/language/korean.elc \
        $(lispsource)/language/lao.elc \
        $(lispsource)/language/tai-viet.elc \