Mercurial > emacs
changeset 77269:b9298f94662a
(bibtex-entry-field-alist): Use defcustom.
| author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> |
|---|---|
| date | Mon, 16 Apr 2007 18:02:04 +0000 |
| parents | a2bd1f33845a |
| children | ae26ce2fcde0 |
| files | lisp/textmodes/bibtex.el |
| diffstat | 1 files changed, 42 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/bibtex.el Mon Apr 16 16:27:12 2007 +0000 +++ b/lisp/textmodes/bibtex.el Mon Apr 16 18:02:04 2007 +0000 @@ -224,7 +224,7 @@ :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 @@ 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"