[Emacs-commit] emacs/lisp/mh-e mh-init.el mh-exec.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/15 18:27:26

Modified files:
        lisp/mh-e      : mh-init.el mh-exec.el ChangeLog 

Log message:
        * mh-exec.el: Require mh-acros, mh-buffers, and mh-utils for
        standalone compile.
        (mh-progs, mh-lib, mh-lib-progs): Move here from mh-init.el.
        
        * mh-init.el (mh-progs, mh-lib, mh-lib-progs): Move to mh-exec.el,
        where they are used.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-init.el.diff?tr1=1.28&tr2=1.29&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-exec.el.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.117&tr2=1.118&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.117 emacs/lisp/mh-e/ChangeLog:1.118
--- emacs/lisp/mh-e/ChangeLog:1.117     Sun Jan 15 08:17:56 2006
+++ emacs/lisp/mh-e/ChangeLog   Sun Jan 15 18:27:26 2006
@@ -1,5 +1,12 @@
 2006-01-15  Bill Wohler  <address@hidden>
 
+       * mh-exec.el: Require mh-acros, mh-buffers, and mh-utils for
+       standalone compile.
+       (mh-progs, mh-lib, mh-lib-progs): Move here from mh-init.el.
+
+       * mh-init.el (mh-progs, mh-lib, mh-lib-progs): Move to mh-exec.el,
+       where they are used.
+
        * mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el;
        needed to help remove dependency on mh-utils.
 
Index: emacs/lisp/mh-e/mh-exec.el
diff -u emacs/lisp/mh-e/mh-exec.el:1.1 emacs/lisp/mh-e/mh-exec.el:1.2
--- emacs/lisp/mh-e/mh-exec.el:1.1      Sun Jan 15 08:17:55 2006
+++ emacs/lisp/mh-e/mh-exec.el  Sun Jan 15 18:27:26 2006
@@ -33,7 +33,31 @@
 
 ;;; Code:
 
-;;; 
+(eval-when-compile (require 'mh-acros))
+(mh-require-cl)
+
+(require 'mh-buffers)
+(require 'mh-utils)
+
+(defvar mh-progs nil
+  "Directory containing MH commands, such as inc, repl, and rmm.")
+
+;;;###autoload
+(put 'mh-progs 'risky-local-variable t)
+
+(defvar mh-lib nil
+  "Directory containing the MH library.
+This directory contains, among other things, the components file.")
+
+;;;###autoload
+(put 'mh-lib 'risky-local-variable t)
+
+(defvar mh-lib-progs nil
+  "Directory containing MH helper programs.
+This directory contains, among other things, the mhl program.")
+
+;;;###autoload
+(put 'mh-lib-progs 'risky-local-variable t)
 
 (defvar mh-index-max-cmdline-args 500
   "Maximum number of command line args.")
Index: emacs/lisp/mh-e/mh-init.el
diff -u emacs/lisp/mh-e/mh-init.el:1.28 emacs/lisp/mh-e/mh-init.el:1.29
--- emacs/lisp/mh-e/mh-init.el:1.28     Sun Jan 15 08:17:55 2006
+++ emacs/lisp/mh-e/mh-init.el  Sun Jan 15 18:27:26 2006
@@ -68,27 +68,9 @@
 ;; was installed into.  But if you installed MH after building Emacs,
 ;; this would almost certainly be wrong, so now we do it at run time.
 
-(defvar mh-progs nil
-  "Directory containing MH commands, such as inc, repl, and rmm.")
-
-(defvar mh-lib nil
-  "Directory containing the MH library.
-This directory contains, among other things, the components file.")
-
-(defvar mh-lib-progs nil
-  "Directory containing MH helper programs.
-This directory contains, among other things, the mhl program.")
-
 (defvar mh-flists-present-flag nil
   "Non-nil means that we have \"flists\".")
 
-;;;###autoload
-(put 'mh-progs 'risky-local-variable t)
-;;;###autoload
-(put 'mh-lib 'risky-local-variable t)
-;;;###autoload
-(put 'mh-lib-progs 'risky-local-variable t)
-
 (defvar mh-variants nil
   "List describing known MH variants.
 Do not access this variable directly as it may not have yet been initialized.