Mercurial > emacs
comparison lisp/eshell/em-banner.el @ 88155:d7ddb3e565de
sync with trunk
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 00:03:54 +0000 |
parents | 67b464da13ec |
children |
comparison
equal
deleted
inserted
replaced
88154:8ce476d3ba36 | 88155:d7ddb3e565de |
---|---|
1 ;;; em-banner.el --- sample module that displays a login banner | 1 ;;; em-banner.el --- sample module that displays a login banner |
2 | 2 |
3 ;; Copyright (C) 1999, 2000 Free Software Foundation | 3 ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, |
4 ;; 2005 Free Software Foundation, Inc. | |
4 | 5 |
5 ;; Author: John Wiegley <johnw@gnu.org> | 6 ;; Author: John Wiegley <johnw@gnu.org> |
6 | 7 |
7 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
8 | 9 |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
17 ;; GNU General Public License for more details. | 18 ;; GNU General Public License for more details. |
18 | 19 |
19 ;; You should have received a copy of the GNU General Public License | 20 ;; You should have received a copy of the GNU General Public License |
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
22 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02110-1301, USA. |
23 | 24 |
24 (provide 'em-banner) | 25 (provide 'em-banner) |
25 | 26 |
26 (eval-when-compile (require 'esh-maint)) | 27 (eval-when-compile (require 'esh-maint)) |
27 | 28 |
28 (defgroup eshell-banner nil | 29 (defgroup eshell-banner nil |
29 "This sample module displays a welcome banner at login. | 30 "This sample module displays a welcome banner at login. |
30 It exists so that others wishing to create their own Eshell extension | 31 It exists so that others wishing to create their own Eshell extension |
31 modules may have a simple template to begin with." | 32 modules may have a simple template to begin with." |
32 :tag "Login banner" | 33 :tag "Login banner" |
33 :link '(info-link "(eshell)Login banner") | 34 ;; :link '(info-link "(eshell)Login banner") |
34 :group 'eshell-module) | 35 :group 'eshell-module) |
35 | 36 |
36 ;;; Commentary: | 37 ;;; Commentary: |
37 | 38 |
38 ;; There is nothing to be done or configured in order to use this | 39 ;; There is nothing to be done or configured in order to use this |
87 (let ((msg (eval eshell-banner-message))) | 88 (let ((msg (eval eshell-banner-message))) |
88 (assert msg) | 89 (assert msg) |
89 (goto-char (point-min)) | 90 (goto-char (point-min)) |
90 (looking-at msg))) | 91 (looking-at msg))) |
91 | 92 |
93 ;;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491 | |
92 ;;; em-banner.el ends here | 94 ;;; em-banner.el ends here |