diff options
| author | Glenn Morris | 2007-12-05 07:06:30 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-12-05 07:06:30 +0000 |
| commit | fa31eac318ab7f344c16cbe0c31489b8e598fbe7 (patch) | |
| tree | 3d095f1464b882c8af28708b3680956621a65a70 /lisp | |
| parent | 5153ac72282fd1a32f8e4a8af75b4b3fd46d5f0b (diff) | |
| download | emacs-fa31eac318ab7f344c16cbe0c31489b8e598fbe7.tar.gz emacs-fa31eac318ab7f344c16cbe0c31489b8e598fbe7.zip | |
Require individual files if needed when compiling, rather than
esh-maint. Collect any require statements. Leave provide at start.
Move any commentary to start.
(eshell-load-defgroups): Eval and compile.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/eshell/esh-module.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/eshell/esh-module.el b/lisp/eshell/esh-module.el index 4ae741a9e66..cf9c2595a87 100644 --- a/lisp/eshell/esh-module.el +++ b/lisp/eshell/esh-module.el | |||
| @@ -23,11 +23,15 @@ | |||
| 23 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | 23 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 24 | ;; Boston, MA 02110-1301, USA. | 24 | ;; Boston, MA 02110-1301, USA. |
| 25 | 25 | ||
| 26 | ;;; Code: | ||
| 27 | |||
| 26 | (provide 'esh-module) | 28 | (provide 'esh-module) |
| 27 | 29 | ||
| 28 | (eval-when-compile | 30 | (eval-when-compile |
| 29 | (require 'esh-maint) | 31 | (require 'cl) |
| 30 | (require 'cl)) | 32 | (require 'esh-util)) |
| 33 | |||
| 34 | (require 'esh-util) | ||
| 31 | 35 | ||
| 32 | (defgroup eshell-module nil | 36 | (defgroup eshell-module nil |
| 33 | "The `eshell-module' group is for Eshell extension modules, which | 37 | "The `eshell-module' group is for Eshell extension modules, which |
| @@ -36,10 +40,7 @@ customizing the variable `eshell-modules-list'." | |||
| 36 | :tag "Extension modules" | 40 | :tag "Extension modules" |
| 37 | :group 'eshell) | 41 | :group 'eshell) |
| 38 | 42 | ||
| 39 | ;;; Commentary: | 43 | (eval-and-compile |
| 40 | |||
| 41 | (require 'esh-util) | ||
| 42 | |||
| 43 | (defun eshell-load-defgroups (&optional directory) | 44 | (defun eshell-load-defgroups (&optional directory) |
| 44 | "Load `defgroup' statements from Eshell's module files." | 45 | "Load `defgroup' statements from Eshell's module files." |
| 45 | (let ((vc-handled-backends nil)) ; avoid VC fucking things up | 46 | (let ((vc-handled-backends nil)) ; avoid VC fucking things up |
| @@ -70,7 +71,7 @@ customizing the variable `eshell-modules-list'." | |||
| 70 | (setq files (cdr files)))) | 71 | (setq files (cdr files)))) |
| 71 | ;; Don't make backups, to avoid prompting the user if there are | 72 | ;; Don't make backups, to avoid prompting the user if there are |
| 72 | ;; excess backup versions. | 73 | ;; excess backup versions. |
| 73 | (save-buffer 0)))) | 74 | (save-buffer 0))))) |
| 74 | 75 | ||
| 75 | ;; load the defgroup's for the standard extension modules, so that | 76 | ;; load the defgroup's for the standard extension modules, so that |
| 76 | ;; documentation can be provided when the user customize's | 77 | ;; documentation can be provided when the user customize's |