aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2007-12-05 07:06:30 +0000
committerGlenn Morris2007-12-05 07:06:30 +0000
commitfa31eac318ab7f344c16cbe0c31489b8e598fbe7 (patch)
tree3d095f1464b882c8af28708b3680956621a65a70 /lisp
parent5153ac72282fd1a32f8e4a8af75b4b3fd46d5f0b (diff)
downloademacs-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.el15
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