summaryrefslogtreecommitdiff
path: root/lisp/eshell/esh-module.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/eshell/esh-module.el')
-rw-r--r--lisp/eshell/esh-module.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/eshell/esh-module.el b/lisp/eshell/esh-module.el
index 17067197909..cf9c2595a87 100644
--- a/lisp/eshell/esh-module.el
+++ b/lisp/eshell/esh-module.el
@@ -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 @@ customizing the variable `eshell-modules-list'."
: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
@@ -68,7 +69,9 @@ customizing the variable `eshell-modules-list'."
(if defgroup
(insert defgroup "\n\n")))
(setq files (cdr files))))
- (save-buffer))))
+ ;; Don't make backups, to avoid prompting the user if there are
+ ;; excess backup versions.
+ (save-buffer 0)))))
;; load the defgroup's for the standard extension modules, so that
;; documentation can be provided when the user customize's