diff options
| author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> | 2007-04-16 18:03:29 +0000 |
|---|---|---|
| committer | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> | 2007-04-16 18:03:29 +0000 |
| commit | 0dcfda42f3087389cd90520d63a3536b3203f9a2 (patch) | |
| tree | efe3fa92b3727a57712c9f643daa6f2a8be9ce04 | |
| parent | 84a8a8b81dc55ae42605ff2a299513fdf412186e (diff) | |
| download | emacs-0dcfda42f3087389cd90520d63a3536b3203f9a2.tar.gz | |
(bibtex-entry-field-alist): Use defcustom.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 44 |
2 files changed, 46 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7412a5d27b4..825487a0881 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-04-16 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> + + * textmodes/bibtex.el (bibtex-entry-field-alist): Use defcustom. + 2007-04-16 Dan Nicolaescu <dann@ics.uci.edu> * progmodes/perl-mode.el (perl-indent-level): Mark as safe local var. diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 2c8406f8656..0545ca85812 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -224,7 +224,7 @@ If parsing fails, try to set this variable to nil." :group 'bibtex :type 'boolean) -(defvar bibtex-entry-field-alist +(defcustom bibtex-entry-field-alist '(("Article" ((("author" "Author1 [and Author2 ...] [and others]") ("title" "Title of the article (BibTeX converts it to lowercase)") @@ -452,7 +452,47 @@ appears in the echo area, INIT is either the initial content of the field or a function, which is called to determine the initial content of the field, and ALTERNATIVE-FLAG (either nil or t) marks if the field is an alternative. ALTERNATIVE-FLAG may be t only in the -REQUIRED or CROSSREF-REQUIRED lists.") +REQUIRED or CROSSREF-REQUIRED lists." + :group 'bibtex + :type '(repeat (list (string :tag "Entry name") + (list (repeat :tag "required" + (group (string :tag "Field") + (string :tag "Comment") + (option (choice :tag "Init" :value nil + (const nil) + (string :tag "string") + (function :tag "function"))) + (option (choice (const nil) + (const :tag "Alternative" t))))) + (repeat :tag "optional" + (group (string :tag "Field") + (string :tag "Comment") + (option (choice :tag "Init" :value nil + (const nil) + (string :tag "string") + (function :tag "function"))) + (option (choice (const nil) + (const :tag "Alternative" t)))))) + (option + (list :tag "Crossref" + (repeat :tag "required" + (group (string :tag "Field") + (string :tag "Comment") + (option (choice :tag "Init" :value nil + (const nil) + (string :tag "string") + (function :tag "function"))) + (option (choice (const nil) + (const :tag "Alternative" t))))) + (repeat :tag "optional" + (group (string :tag "Field") + (string :tag "Comment") + (option (choice :tag "Init" :value nil + (const nil) + (string :tag "string") + (function :tag "function"))) + (option (choice (const nil) + (const :tag "Alternative" t)))))))))) (put 'bibtex-entry-field-alist 'risky-local-variable t) (defcustom bibtex-comment-start "@Comment" |