[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: |
Tue, 17 Apr 2007 03:24:26 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Roland Winkler <winkler> 07/04/17 03:24:26
Index: bibtex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -b -r1.127 -r1.128
--- bibtex.el 16 Apr 2007 18:02:04 -0000 1.127
+++ bibtex.el 17 Apr 2007 03:24:26 -0000 1.128
@@ -86,7 +86,7 @@
:group 'bibtex
:type '(choice (const :tag "None" nil)
(string :tag "Initial text")
- (function :tag "Initialize Function" :value fun)
+ (function :tag "Initialize Function")
(const :tag "Default" t)))
(put 'bibtex-include-OPTkey 'risky-local-variable t)
@@ -98,11 +98,8 @@
:group 'bibtex
:type '(repeat (group (string :tag "Field")
(string :tag "Comment")
- (option (group :inline t
- :extra-offset -4
- (choice :tag "Init" :value ""
- string
- function))))))
+ (option (choice :tag "Init"
+ (const nil) string function)))))
(put 'bibtex-user-optional-fields 'risky-local-variable t)
(defcustom bibtex-entry-format
@@ -454,45 +451,34 @@
field is an alternative. ALTERNATIVE-FLAG may be t only in the
REQUIRED or CROSSREF-REQUIRED lists."
:group 'bibtex
- :type '(repeat (list (string :tag "Entry name")
- (list (repeat :tag "required"
+ :type '(repeat (group (string :tag "Entry name")
+ (group (repeat :tag "Required fields"
(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"
+ (const nil)
string function))
+ (option (choice :tag
"Alternative"
+ (const :tag "No"
nil)
+ (const :tag
"Yes" t)))))
+ (repeat :tag "Optional fields"
(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"
+ (const nil)
string function)))))
+ (option :extra-offset -4
+ (group (repeat :tag "Crossref: required fields"
(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"
+ (const nil)
string function))
+ (option (choice :tag
"Alternative"
+ (const :tag
"No" nil)
+ (const :tag
"Yes" t)))))
+ (repeat :tag "Crossref: optional fields"
(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))))))))))
+ (const nil)
string function)))))))))
(put 'bibtex-entry-field-alist 'risky-local-variable t)
(defcustom bibtex-comment-start "@Comment"