emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master c7e93c4: Tweak japanese.el's loading of dependencie


From: Glenn Morris
Subject: [Emacs-diffs] master c7e93c4: Tweak japanese.el's loading of dependencies.
Date: Fri, 15 May 2015 22:33:26 +0000

branch: master
commit c7e93c41078193d4df8ca165d3aea50a51c40519
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 admin/charsets/cp51932.awk     |    2 ++
 admin/charsets/eucjp-ms.awk    |    2 ++
 lisp/international/cp51932.el  |    2 ++
 lisp/international/eucjp-ms.el |    2 ++
 lisp/language/japanese.el      |    4 ++--
 lisp/loadup.el                 |    2 ++
 src/lisp.mk                    |    6 +-----
 7 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/admin/charsets/cp51932.awk b/admin/charsets/cp51932.awk
index c8879b3..f59e91c 100644
--- 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 18c19f5..f17222d 100644
--- 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 a648926..cb72356 100644
--- 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 6e4e1e7..efb0a2b 100644
--- 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 ce48025..38159d7 100644
--- 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 828b19e..525cbad 100644
--- 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 8eb86b7..0a431a5 100644
--- 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 \



reply via email to

[Prev in Thread] Current Thread [Next in Thread]