1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00

Use 'esh-module-autoload' for Eshell modules' defgroups

This will let modules define their own, regular autoloads, independent
of the core Eshell machinery for defining modules.

* lisp/eshell/em-alias.el (em-alias):
* lisp/eshell/em-banner.el (em-banner):
* lisp/eshell/em-basic.el (em-basic):
* lisp/eshell/em-cmpl.el (em-cmpl):
* lisp/eshell/em-dirs.el (em-dirs):
* lisp/eshell/em-elecslash.el (em-elecslash):
* lisp/eshell/em-extpipe.el:
* lisp/eshell/em-glob.el (em-glob):
* lisp/eshell/em-hist.el (em-hist):
* lisp/eshell/em-ls.el (em-ls):
* lisp/eshell/em-pred.el (em-pred):
* lisp/eshell/em-prompt.el (em-prompt):
* lisp/eshell/em-rebind.el (em-rebind):
* lisp/eshell/em-script.el (em-script):
* lisp/eshell/em-smart.el (em-smart):
* lisp/eshell/em-term.el (em-term):
* lisp/eshell/em-tramp.el (em-tramp):
* lisp/eshell/em-unix.el (em-unix):
* lisp/eshell/em-xtra.el (em-xtra): Use 'esh-module-autoload'.

* lisp/eshell/esh-module.el ("esh-module-loaddefs"): Load this instead
of "esh-groups".

* .gitignore: Change esh-groups.el to esh-module-loaddefs.el
This commit is contained in:
Jim Porter 2024-05-19 22:01:31 -07:00
parent 6c2f21e4a6
commit 4c924a5333
21 changed files with 21 additions and 111 deletions

2
.gitignore vendored
View File

@ -128,7 +128,7 @@ lisp/cedet/semantic/wisent/js-wy.el
lisp/cedet/semantic/wisent/python-wy.el
lisp/cedet/srecode/srt-wy.el
lisp/cedet/semantic/grammar-wy.el
lisp/eshell/esh-groups.el
lisp/eshell/esh-module-loaddefs.el
lisp/finder-inf.el
lisp/leim/ja-dic/
leim/small-ja-dic-option

View File

@ -92,7 +92,7 @@
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-alias nil
"Command aliases allow for easy definition of alternate commands."
@ -268,9 +268,4 @@ These are all the command aliases which begin with NAME."
(eshell-parse-command alias))))))))))
(provide 'em-alias)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-alias.el ends here

View File

@ -44,7 +44,7 @@
(require 'esh-util)
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-banner nil
"This sample module displays a welcome banner at login.
@ -82,9 +82,4 @@ This can be any sexp, and should end with at least two newlines."
(eshell-interactive-print msg))))
(provide 'em-banner)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-banner.el ends here

View File

@ -58,7 +58,7 @@
(require 'esh-opt)
(require 'esh-util)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-basic nil
"The \"basic\" code provides a set of convenience functions which
@ -225,9 +225,4 @@ are:
(while (pcomplete-here '("error" "form" "process"))))
(provide 'em-basic)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-basic.el ends here

View File

@ -76,7 +76,7 @@
(eval-when-compile (require 'cl-lib))
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-cmpl nil
"This module provides a programmable completion function bound to
@ -518,9 +518,4 @@ to writing a completion function."
(define-obsolete-function-alias 'eshell-pcomplete #'completion-at-point "27.1")
(provide 'em-cmpl)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-cmpl.el ends here

View File

@ -47,7 +47,7 @@
(require 'ring)
(require 'esh-opt)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-dirs nil
"Directory navigation involves changing directories, examining the
@ -599,9 +599,4 @@ in the minibuffer:
'no-message))))))))
(provide 'em-dirs)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-dirs.el ends here

View File

@ -32,7 +32,7 @@
(require 'esh-mode)
;; This makes us an option when customizing `eshell-modules-list'.
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-elecslash nil
"Electric forward slash in remote Eshells.
@ -108,9 +108,4 @@ insertion."
(insert "/")))))
(provide 'em-elecslash)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; esh-elecslash.el ends here

View File

@ -36,7 +36,7 @@
(eval-when-compile (require 'files-x))
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-extpipe nil
"Native shell pipelines.

View File

@ -53,7 +53,7 @@
(require 'esh-module)
(require 'esh-util)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-glob nil
"This module provides extended globbing syntax, similar what is used
@ -417,9 +417,4 @@ directories and files."
(eshell-glob-entries rdir globs only-dirs)))))
(provide 'em-glob)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-glob.el ends here

View File

@ -60,7 +60,7 @@
(require 'esh-opt)
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-hist nil
"This module provides command history management."
@ -1067,9 +1067,4 @@ If N is negative, search backwards for the -Nth previous match."
(remove-hook 'kill-emacs-hook 'eshell-save-some-history))
(provide 'em-hist)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-hist.el ends here

View File

@ -32,7 +32,7 @@
(require 'esh-proc)
(require 'esh-cmd)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-ls nil
"This module implements the \"ls\" utility fully in Lisp.
@ -956,9 +956,4 @@ to use, and each member of which is the width of that column
(eshell-ls-disable-in-dired))
(provide 'em-ls)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-ls.el ends here

View File

@ -48,7 +48,7 @@
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-pred nil
"This module allows for predicates to be applied to globbing
@ -576,9 +576,4 @@ If INVERT-P is non-nil, include only members not matching a regexp."
lst))))
(provide 'em-pred)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-pred.el ends here

View File

@ -29,7 +29,7 @@
(require 'esh-mode)
(require 'text-property-search)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-prompt nil
"This module provides command prompts, and navigation between them,
@ -231,9 +231,4 @@ first (see `move-beginning-of-line' for more information)."
(move-beginning-of-line arg)))
(provide 'em-prompt)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-prompt.el ends here

View File

@ -25,7 +25,7 @@
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-rebind nil
"This module allows for special keybindings that only take effect
@ -250,9 +250,4 @@ input."
(eshell-delete-backward-char (- arg)))))
(provide 'em-rebind)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-rebind.el ends here

View File

@ -25,7 +25,7 @@
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-script nil
"This module allows for the execution of files containing Eshell
@ -115,9 +115,4 @@ Comments begin with `#'."
(put 'eshell/. 'eshell-no-numeric-conversions t)
(provide 'em-script)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-script.el ends here

View File

@ -70,7 +70,7 @@
(require 'esh-mode)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-smart nil
"This module combines the facility of normal, modern shells with
@ -303,9 +303,4 @@ and the end of the buffer are still visible."
(remove-hook 'window-configuration-change-hook #'eshell-smart-scroll))
(provide 'em-smart)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-smart.el ends here

View File

@ -36,7 +36,7 @@
(require 'esh-ext)
(require 'term)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-term nil
"This module causes visual commands (e.g., `vi') to be executed by
@ -330,9 +330,4 @@ the buffer."
; (use-local-map term-old-mode-map))
(provide 'em-term)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-term.el ends here

View File

@ -35,7 +35,7 @@
;; There are no items in this custom group, but eshell modules (ab)use
;; custom groups.
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-tramp nil
"This module defines commands that use Tramp in a way that is
@ -152,9 +152,4 @@ Execute a COMMAND as the superuser or another USER.")
(put 'eshell/doas 'eshell-no-numeric-conversions t)
(provide 'em-tramp)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-tramp.el ends here

View File

@ -38,7 +38,7 @@
(require 'esh-mode)
(require 'pcomplete)
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-unix nil
"This module defines many of the more common UNIX utilities as
@ -1096,9 +1096,4 @@ Show wall-clock time elapsed during execution of COMMAND.")
(define-obsolete-function-alias 'eshell-diff-quit #'ignore "30.1")
(provide 'em-unix)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-unix.el ends here

View File

@ -28,7 +28,7 @@
;; There are no items in this custom group, but eshell modules (ab)use
;; custom groups.
;;;###autoload
;;;###esh-module-autoload
(progn
(defgroup eshell-xtra nil
"This module defines some extra alias functions which are entirely
@ -85,9 +85,4 @@ naturally accessible within Emacs."
(defalias 'eshell/gf #'find-grep-dired)
(provide 'em-xtra)
;; Local Variables:
;; generated-autoload-file: "esh-groups.el"
;; End:
;;; em-xtra.el ends here

View File

@ -38,7 +38,7 @@ customizing the variable `eshell-modules-list'."
;; `eshell-modules-list'. We use "(progn (defgroup ..." in each file
;; to force the autoloader into including the entire defgroup, rather
;; than an abbreviated version.
(load "esh-groups" nil 'nomessage)
(load "esh-module-loaddefs" nil 'nomessage)
;;; User Variables: