diff options
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 35 |
1 files changed, 24 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 4e7fae47125..9aebbf8d02d 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -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 @@ in your Lisp package: ;; @(#) $Maintainer: Person Foo Bar $ The @(#) construct is used by unix what(1) and -then $identifier: doc string $ is used by GNU ident(1)") - -(defvar lm-comment-column 16 - "Column used for placing formatted output.") - -(defvar lm-commentary-header "Commentary\\|Documentation" - "Regexp which matches start of documentation section.") - -(defvar lm-history-header "Change Log\\|History" - "Regexp which matches the start of code log section.") +then $identifier: doc string $ is used by GNU ident(1)" + :type 'regexp + :group 'lisp-mnt) + +(defcustom lm-comment-column 16 + "Column used for placing formatted output." + :type 'integer + :group 'lisp-mnt) + +(defcustom lm-commentary-header "Commentary\\|Documentation" + "Regexp which matches start of documentation section." + :type 'regexp + :group 'lisp-mnt) + +(defcustom lm-history-header "Change Log\\|History" + "Regexp which matches the start of code log section." + :type 'regexp + :group 'lisp-mnt) ;;; Functions: |