diff options
| author | Glenn Morris | 2007-12-05 07:08:55 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-12-05 07:08:55 +0000 |
| commit | 4e6cc05cc91d58358b73380d61eec1a0b97cb33c (patch) | |
| tree | f0aa4d08737c48238a242e45b40a64103d7aa518 /lisp/eshell | |
| parent | 5477308bb2464b46c7d376e93bf810d64ec4c081 (diff) | |
| download | emacs-4e6cc05cc91d58358b73380d61eec1a0b97cb33c.tar.gz emacs-4e6cc05cc91d58358b73380d61eec1a0b97cb33c.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.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-ext.el | 23 | ||||
| -rw-r--r-- | lisp/eshell/esh-mode.el | 17 | ||||
| -rw-r--r-- | lisp/eshell/esh-opt.el | 6 | ||||
| -rw-r--r-- | lisp/eshell/esh-proc.el | 8 |
4 files changed, 28 insertions, 26 deletions
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 7e3e8ac9e09..b3fc5c30bbe 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el | |||
| @@ -22,17 +22,6 @@ | |||
| 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 23 | ;; Boston, MA 02110-1301, USA. | 23 | ;; Boston, MA 02110-1301, USA. |
| 24 | 24 | ||
| 25 | (provide 'esh-ext) | ||
| 26 | |||
| 27 | (eval-when-compile (require 'esh-maint)) | ||
| 28 | (require 'esh-util) | ||
| 29 | |||
| 30 | (defgroup eshell-ext nil | ||
| 31 | "External commands are invoked when operating system executables are | ||
| 32 | loaded into memory, thus beginning a new process." | ||
| 33 | :tag "External commands" | ||
| 34 | :group 'eshell) | ||
| 35 | |||
| 36 | ;;; Commentary: | 25 | ;;; Commentary: |
| 37 | 26 | ||
| 38 | ;; To force a command to invoked external, either provide an explicit | 27 | ;; To force a command to invoked external, either provide an explicit |
| @@ -43,6 +32,18 @@ loaded into memory, thus beginning a new process." | |||
| 43 | ;; /bin/grep ; will definitely invoke /bin/grep | 32 | ;; /bin/grep ; will definitely invoke /bin/grep |
| 44 | ;; *grep ; will also invoke /bin/grep | 33 | ;; *grep ; will also invoke /bin/grep |
| 45 | 34 | ||
| 35 | (provide 'esh-ext) | ||
| 36 | |||
| 37 | (eval-when-compile | ||
| 38 | (require 'esh-cmd)) | ||
| 39 | (require 'esh-util) | ||
| 40 | |||
| 41 | (defgroup eshell-ext nil | ||
| 42 | "External commands are invoked when operating system executables are | ||
| 43 | loaded into memory, thus beginning a new process." | ||
| 44 | :tag "External commands" | ||
| 45 | :group 'eshell) | ||
| 46 | |||
| 46 | ;;; User Variables: | 47 | ;;; User Variables: |
| 47 | 48 | ||
| 48 | (defcustom eshell-ext-load-hook '(eshell-ext-initialize) | 49 | (defcustom eshell-ext-load-hook '(eshell-ext-initialize) |
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index b30c1a80539..180515b7b79 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el | |||
| @@ -22,15 +22,6 @@ | |||
| 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 23 | ;; Boston, MA 02110-1301, USA. | 23 | ;; Boston, MA 02110-1301, USA. |
| 24 | 24 | ||
| 25 | (provide 'esh-mode) | ||
| 26 | |||
| 27 | (eval-when-compile (require 'esh-maint)) | ||
| 28 | |||
| 29 | (defgroup eshell-mode nil | ||
| 30 | "This module contains code for handling input from the user." | ||
| 31 | :tag "User interface" | ||
| 32 | :group 'eshell) | ||
| 33 | |||
| 34 | ;;; Commentary: | 25 | ;;; Commentary: |
| 35 | 26 | ||
| 36 | ;; Basically, Eshell is used just like shell mode (<M-x shell>). The | 27 | ;; Basically, Eshell is used just like shell mode (<M-x shell>). The |
| @@ -68,11 +59,19 @@ | |||
| 68 | ;; | 59 | ;; |
| 69 | ;; @ <C-c C-b> will move backward a complete shell argument. | 60 | ;; @ <C-c C-b> will move backward a complete shell argument. |
| 70 | 61 | ||
| 62 | (provide 'esh-mode) | ||
| 63 | |||
| 64 | (eval-when-compile (require 'esh-util)) | ||
| 71 | (require 'esh-module) | 65 | (require 'esh-module) |
| 72 | (require 'esh-cmd) | 66 | (require 'esh-cmd) |
| 73 | (require 'esh-io) | 67 | (require 'esh-io) |
| 74 | (require 'esh-var) | 68 | (require 'esh-var) |
| 75 | 69 | ||
| 70 | (defgroup eshell-mode nil | ||
| 71 | "This module contains code for handling input from the user." | ||
| 72 | :tag "User interface" | ||
| 73 | :group 'eshell) | ||
| 74 | |||
| 76 | ;;; User Variables: | 75 | ;;; User Variables: |
| 77 | 76 | ||
| 78 | (defcustom eshell-mode-unload-hook nil | 77 | (defcustom eshell-mode-unload-hook nil |
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 121f568a9c4..953284e5392 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el | |||
| @@ -22,9 +22,11 @@ | |||
| 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 23 | ;; Boston, MA 02110-1301, USA. | 23 | ;; Boston, MA 02110-1301, USA. |
| 24 | 24 | ||
| 25 | ;;; Commentary: | ||
| 26 | |||
| 25 | (provide 'esh-opt) | 27 | (provide 'esh-opt) |
| 26 | 28 | ||
| 27 | (eval-when-compile (require 'esh-maint)) | 29 | (eval-when-compile (require 'esh-ext)) |
| 28 | 30 | ||
| 29 | (defgroup eshell-opt nil | 31 | (defgroup eshell-opt nil |
| 30 | "The options processing code handles command argument parsing for | 32 | "The options processing code handles command argument parsing for |
| @@ -32,8 +34,6 @@ Eshell commands implemented in Lisp." | |||
| 32 | :tag "Command options processing" | 34 | :tag "Command options processing" |
| 33 | :group 'eshell) | 35 | :group 'eshell) |
| 34 | 36 | ||
| 35 | ;;; Commentary: | ||
| 36 | |||
| 37 | ;;; User Functions: | 37 | ;;; User Functions: |
| 38 | 38 | ||
| 39 | (defmacro eshell-eval-using-options (name macro-args | 39 | (defmacro eshell-eval-using-options (name macro-args |
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el index 7338756e3f8..c679ea7440a 100644 --- a/lisp/eshell/esh-proc.el +++ b/lisp/eshell/esh-proc.el | |||
| @@ -22,9 +22,13 @@ | |||
| 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 23 | ;; Boston, MA 02110-1301, USA. | 23 | ;; Boston, MA 02110-1301, USA. |
| 24 | 24 | ||
| 25 | ;;; Commentary: | ||
| 26 | |||
| 25 | (provide 'esh-proc) | 27 | (provide 'esh-proc) |
| 26 | 28 | ||
| 27 | (eval-when-compile (require 'esh-maint)) | 29 | (eval-when-compile |
| 30 | (require 'eshell) | ||
| 31 | (require 'esh-util)) | ||
| 28 | 32 | ||
| 29 | (defgroup eshell-proc nil | 33 | (defgroup eshell-proc nil |
| 30 | "When Eshell invokes external commands, it always does so | 34 | "When Eshell invokes external commands, it always does so |
| @@ -33,8 +37,6 @@ finish." | |||
| 33 | :tag "Process management" | 37 | :tag "Process management" |
| 34 | :group 'eshell) | 38 | :group 'eshell) |
| 35 | 39 | ||
| 36 | ;;; Commentary: | ||
| 37 | |||
| 38 | ;;; User Variables: | 40 | ;;; User Variables: |
| 39 | 41 | ||
| 40 | (defcustom eshell-proc-load-hook '(eshell-proc-initialize) | 42 | (defcustom eshell-proc-load-hook '(eshell-proc-initialize) |