diff options
| author | Bill Wohler | 2006-01-15 18:27:26 +0000 |
|---|---|---|
| committer | Bill Wohler | 2006-01-15 18:27:26 +0000 |
| commit | 98eab4e47742190fb317bc398dde0ed126241ab5 (patch) | |
| tree | 97c821dbf81477f1bbc011d0bef3eab0e4f8829e | |
| parent | 0501acd449d13363381707188907572fc5b6e2fd (diff) | |
| download | emacs-98eab4e47742190fb317bc398dde0ed126241ab5.tar.gz emacs-98eab4e47742190fb317bc398dde0ed126241ab5.zip | |
* 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.
| -rw-r--r-- | lisp/mh-e/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/mh-e/mh-exec.el | 26 | ||||
| -rw-r--r-- | lisp/mh-e/mh-init.el | 18 |
3 files changed, 32 insertions, 19 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index fb3b1d70069..debaf5c943a 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -1,5 +1,12 @@ | |||
| 1 | 2006-01-15 Bill Wohler <wohler@newt.com> | 1 | 2006-01-15 Bill Wohler <wohler@newt.com> |
| 2 | 2 | ||
| 3 | * mh-exec.el: Require mh-acros, mh-buffers, and mh-utils for | ||
| 4 | standalone compile. | ||
| 5 | (mh-progs, mh-lib, mh-lib-progs): Move here from mh-init.el. | ||
| 6 | |||
| 7 | * mh-init.el (mh-progs, mh-lib, mh-lib-progs): Move to mh-exec.el, | ||
| 8 | where they are used. | ||
| 9 | |||
| 3 | * mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el; | 10 | * mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el; |
| 4 | needed to help remove dependency on mh-utils. | 11 | needed to help remove dependency on mh-utils. |
| 5 | 12 | ||
diff --git a/lisp/mh-e/mh-exec.el b/lisp/mh-e/mh-exec.el index 71e40e5bdb0..e7a4a94b9a5 100644 --- a/lisp/mh-e/mh-exec.el +++ b/lisp/mh-e/mh-exec.el | |||
| @@ -33,7 +33,31 @@ | |||
| 33 | 33 | ||
| 34 | ;;; Code: | 34 | ;;; Code: |
| 35 | 35 | ||
| 36 | ;;; | 36 | (eval-when-compile (require 'mh-acros)) |
| 37 | (mh-require-cl) | ||
| 38 | |||
| 39 | (require 'mh-buffers) | ||
| 40 | (require 'mh-utils) | ||
| 41 | |||
| 42 | (defvar mh-progs nil | ||
| 43 | "Directory containing MH commands, such as inc, repl, and rmm.") | ||
| 44 | |||
| 45 | ;;;###autoload | ||
| 46 | (put 'mh-progs 'risky-local-variable t) | ||
| 47 | |||
| 48 | (defvar mh-lib nil | ||
| 49 | "Directory containing the MH library. | ||
| 50 | This directory contains, among other things, the components file.") | ||
| 51 | |||
| 52 | ;;;###autoload | ||
| 53 | (put 'mh-lib 'risky-local-variable t) | ||
| 54 | |||
| 55 | (defvar mh-lib-progs nil | ||
| 56 | "Directory containing MH helper programs. | ||
| 57 | This directory contains, among other things, the mhl program.") | ||
| 58 | |||
| 59 | ;;;###autoload | ||
| 60 | (put 'mh-lib-progs 'risky-local-variable t) | ||
| 37 | 61 | ||
| 38 | (defvar mh-index-max-cmdline-args 500 | 62 | (defvar mh-index-max-cmdline-args 500 |
| 39 | "Maximum number of command line args.") | 63 | "Maximum number of command line args.") |
diff --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el index 86a62768980..180db2b22a5 100644 --- a/lisp/mh-e/mh-init.el +++ b/lisp/mh-e/mh-init.el | |||
| @@ -68,27 +68,9 @@ directories to the customizable variable `mh-path'.") | |||
| 68 | ;; was installed into. But if you installed MH after building Emacs, | 68 | ;; was installed into. But if you installed MH after building Emacs, |
| 69 | ;; this would almost certainly be wrong, so now we do it at run time. | 69 | ;; this would almost certainly be wrong, so now we do it at run time. |
| 70 | 70 | ||
| 71 | (defvar mh-progs nil | ||
| 72 | "Directory containing MH commands, such as inc, repl, and rmm.") | ||
| 73 | |||
| 74 | (defvar mh-lib nil | ||
| 75 | "Directory containing the MH library. | ||
| 76 | This directory contains, among other things, the components file.") | ||
| 77 | |||
| 78 | (defvar mh-lib-progs nil | ||
| 79 | "Directory containing MH helper programs. | ||
| 80 | This directory contains, among other things, the mhl program.") | ||
| 81 | |||
| 82 | (defvar mh-flists-present-flag nil | 71 | (defvar mh-flists-present-flag nil |
| 83 | "Non-nil means that we have \"flists\".") | 72 | "Non-nil means that we have \"flists\".") |
| 84 | 73 | ||
| 85 | ;;;###autoload | ||
| 86 | (put 'mh-progs 'risky-local-variable t) | ||
| 87 | ;;;###autoload | ||
| 88 | (put 'mh-lib 'risky-local-variable t) | ||
| 89 | ;;;###autoload | ||
| 90 | (put 'mh-lib-progs 'risky-local-variable t) | ||
| 91 | |||
| 92 | (defvar mh-variants nil | 74 | (defvar mh-variants nil |
| 93 | "List describing known MH variants. | 75 | "List describing known MH variants. |
| 94 | Do not access this variable directly as it may not have yet been initialized. | 76 | Do not access this variable directly as it may not have yet been initialized. |