[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el,v
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el,v |
Date: |
Mon, 16 Apr 2007 18:02:04 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Roland Winkler <winkler> 07/04/16 18:02:04
Index: bibtex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -b -r1.126 -r1.127
--- bibtex.el 15 Apr 2007 16:03:07 -0000 1.126
+++ bibtex.el 16 Apr 2007 18:02:04 -0000 1.127
@@ -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"