# HG changeset patch # User Glenn Morris # Date 1196838390 0 # Node ID 24280fb751e39faf2baa0501c1907868214587ed # Parent 3767c83997820fbbec299afc275bd33313855255 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. diff -r 3767c8399782 -r 24280fb751e3 lisp/eshell/esh-module.el --- a/lisp/eshell/esh-module.el Wed Dec 05 07:06:02 2007 +0000 +++ b/lisp/eshell/esh-module.el Wed Dec 05 07:06:30 2007 +0000 @@ -23,11 +23,15 @@ ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. +;;; Code: + (provide 'esh-module) (eval-when-compile - (require 'esh-maint) - (require 'cl)) + (require 'cl) + (require 'esh-util)) + +(require 'esh-util) (defgroup eshell-module nil "The `eshell-module' group is for Eshell extension modules, which @@ -36,10 +40,7 @@ :tag "Extension modules" :group 'eshell) -;;; Commentary: - -(require 'esh-util) - +(eval-and-compile (defun eshell-load-defgroups (&optional directory) "Load `defgroup' statements from Eshell's module files." (let ((vc-handled-backends nil)) ; avoid VC fucking things up @@ -70,7 +71,7 @@ (setq files (cdr files)))) ;; Don't make backups, to avoid prompting the user if there are ;; excess backup versions. - (save-buffer 0)))) + (save-buffer 0))))) ;; load the defgroup's for the standard extension modules, so that ;; documentation can be provided when the user customize's