Mercurial > emacs
diff lisp/emacs-lisp/lisp-mnt.el @ 21365:db005054f15d
Customized.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Sun, 05 Apr 1998 18:26:32 +0000 |
parents | 8a5bdbbc1d6a |
children | e8884769bd83 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el Sun Apr 05 17:43:09 1998 +0000 +++ b/lisp/emacs-lisp/lisp-mnt.el Sun Apr 05 18:26:32 1998 +0000 @@ -117,7 +117,12 @@ ;;; Variables: -(defvar lm-header-prefix "^;;*[ \t]+\\(@\(#\)\\)?[ \t]*\\([\$]\\)?" +(defgroup lisp-mnt nil + "Minor mode for Emacs Lisp maintainers." + :prefix "lm-" + :group 'maint) + +(defcustom lm-header-prefix "^;;*[ \t]+\\(@\(#\)\\)?[ \t]*\\([\$]\\)?" "Prefix that is ignored before the tag. For example, you can write the 1st line synopsis string and headers like this in your Lisp package: @@ -127,16 +132,24 @@ ;; @(#) $Maintainer: Person Foo Bar $ The @(#) construct is used by unix what(1) and -then $identifier: doc string $ is used by GNU ident(1)") +then $identifier: doc string $ is used by GNU ident(1)" + :type 'regexp + :group 'lisp-mnt) -(defvar lm-comment-column 16 - "Column used for placing formatted output.") +(defcustom lm-comment-column 16 + "Column used for placing formatted output." + :type 'integer + :group 'lisp-mnt) -(defvar lm-commentary-header "Commentary\\|Documentation" - "Regexp which matches start of documentation section.") +(defcustom lm-commentary-header "Commentary\\|Documentation" + "Regexp which matches start of documentation section." + :type 'regexp + :group 'lisp-mnt) -(defvar lm-history-header "Change Log\\|History" - "Regexp which matches the start of code log section.") +(defcustom lm-history-header "Change Log\\|History" + "Regexp which matches the start of code log section." + :type 'regexp + :group 'lisp-mnt) ;;; Functions: