[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/eshell/em-banner.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/eshell/em-banner.el,v |
Date: |
Wed, 05 Dec 2007 06:59:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/12/05 06:59:48
Index: em-banner.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/em-banner.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- em-banner.el 26 Jul 2007 05:26:53 -0000 1.13
+++ em-banner.el 5 Dec 2007 06:59:48 -0000 1.14
@@ -22,18 +22,6 @@
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
-(provide 'em-banner)
-
-(eval-when-compile (require 'esh-maint))
-
-(defgroup eshell-banner nil
- "This sample module displays a welcome banner at login.
-It exists so that others wishing to create their own Eshell extension
-modules may have a simple template to begin with."
- :tag "Login banner"
- ;; :link '(info-link "(eshell)Login banner")
- :group 'eshell-module)
-
;;; Commentary:
;; There is nothing to be done or configured in order to use this
@@ -51,6 +39,23 @@
;; In this case, it allows the user to change the string which
;; displays at login time.
+;;; Code:
+
+(eval-when-compile
+ (require 'cl)
+ (require 'esh-mode)
+ (require 'eshell))
+
+(require 'esh-util)
+
+(defgroup eshell-banner nil
+ "This sample module displays a welcome banner at login.
+It exists so that others wishing to create their own Eshell extension
+modules may have a simple template to begin with."
+ :tag "Login banner"
+ ;; :link '(info-link "(eshell)Login banner")
+ :group 'eshell-module)
+
;;; User Variables:
(defcustom eshell-banner-message "Welcome to the Emacs shell\n\n"
@@ -61,10 +66,6 @@
(put 'eshell-banner-message 'risky-local-variable t)
-;;; Code:
-
-(require 'esh-util)
-
(defcustom eshell-banner-load-hook '(eshell-banner-initialize)
"*A list of functions to run when `eshell-banner' is loaded."
:type 'hook
@@ -90,5 +91,7 @@
(goto-char (point-min))
(looking-at msg)))
+(provide 'em-banner)
+
;;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491
;;; em-banner.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/eshell/em-banner.el,v,
Glenn Morris <=