Mercurial > emacs
comparison lisp/eshell/em-banner.el @ 95152:ad5d26b1d5d1
Use eshell-defgroup rather than defgroup.
Autoload the custom group.
Set generated-autoload-file.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 21 May 2008 03:51:08 +0000 |
parents | b5b0801a7637 |
children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
95151:f45f20b8625d | 95152:ad5d26b1d5d1 |
---|---|
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, 2001, 2002, 2003, 2004, | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 4 ;; 2008 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: John Wiegley <johnw@gnu.org> | 6 ;; Author: John Wiegley <johnw@gnu.org> |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
9 | 9 |
44 (require 'esh-mode) | 44 (require 'esh-mode) |
45 (require 'eshell)) | 45 (require 'eshell)) |
46 | 46 |
47 (require 'esh-util) | 47 (require 'esh-util) |
48 | 48 |
49 (defgroup eshell-banner nil | 49 ;;;###autoload |
50 (eshell-defgroup eshell-banner nil | |
50 "This sample module displays a welcome banner at login. | 51 "This sample module displays a welcome banner at login. |
51 It exists so that others wishing to create their own Eshell extension | 52 It exists so that others wishing to create their own Eshell extension |
52 modules may have a simple template to begin with." | 53 modules may have a simple template to begin with." |
53 :tag "Login banner" | 54 :tag "Login banner" |
54 ;; :link '(info-link "(eshell)Login banner") | 55 ;; :link '(info-link "(eshell)Login banner") |
89 (goto-char (point-min)) | 90 (goto-char (point-min)) |
90 (looking-at msg))) | 91 (looking-at msg))) |
91 | 92 |
92 (provide 'em-banner) | 93 (provide 'em-banner) |
93 | 94 |
95 ;; Local Variables: | |
96 ;; generated-autoload-file: "esh-groups.el" | |
97 ;; End: | |
98 | |
94 ;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491 | 99 ;; arch-tag: e738b4ef-8671-42ae-a757-291779b92491 |
95 ;;; em-banner.el ends here | 100 ;;; em-banner.el ends here |