Mercurial > emacs
comparison lisp/textmodes/bibtex.el @ 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 | f00e4356c78d |
| children | 372e6a7ea660 |
comparison
equal
deleted
inserted
replaced
| 77268:a2bd1f33845a | 77269:b9298f94662a |
|---|---|
| 222 "If non-nil, use fast but simplified algorithm for parsing BibTeX keys. | 222 "If non-nil, use fast but simplified algorithm for parsing BibTeX keys. |
| 223 If parsing fails, try to set this variable to nil." | 223 If parsing fails, try to set this variable to nil." |
| 224 :group 'bibtex | 224 :group 'bibtex |
| 225 :type 'boolean) | 225 :type 'boolean) |
| 226 | 226 |
| 227 (defvar bibtex-entry-field-alist | 227 (defcustom bibtex-entry-field-alist |
| 228 '(("Article" | 228 '(("Article" |
| 229 ((("author" "Author1 [and Author2 ...] [and others]") | 229 ((("author" "Author1 [and Author2 ...] [and others]") |
| 230 ("title" "Title of the article (BibTeX converts it to lowercase)") | 230 ("title" "Title of the article (BibTeX converts it to lowercase)") |
| 231 ("journal" "Name of the journal (use string, remove braces)") | 231 ("journal" "Name of the journal (use string, remove braces)") |
| 232 ("year" "Year of publication")) | 232 ("year" "Year of publication")) |
| 450 FIELD-NAME is the name of the field, COMMENT-STRING is the comment that | 450 FIELD-NAME is the name of the field, COMMENT-STRING is the comment that |
| 451 appears in the echo area, INIT is either the initial content of the | 451 appears in the echo area, INIT is either the initial content of the |
| 452 field or a function, which is called to determine the initial content | 452 field or a function, which is called to determine the initial content |
| 453 of the field, and ALTERNATIVE-FLAG (either nil or t) marks if the | 453 of the field, and ALTERNATIVE-FLAG (either nil or t) marks if the |
| 454 field is an alternative. ALTERNATIVE-FLAG may be t only in the | 454 field is an alternative. ALTERNATIVE-FLAG may be t only in the |
| 455 REQUIRED or CROSSREF-REQUIRED lists.") | 455 REQUIRED or CROSSREF-REQUIRED lists." |
| 456 :group 'bibtex | |
| 457 :type '(repeat (list (string :tag "Entry name") | |
| 458 (list (repeat :tag "required" | |
| 459 (group (string :tag "Field") | |
| 460 (string :tag "Comment") | |
| 461 (option (choice :tag "Init" :value nil | |
| 462 (const nil) | |
| 463 (string :tag "string") | |
| 464 (function :tag "function"))) | |
| 465 (option (choice (const nil) | |
| 466 (const :tag "Alternative" t))))) | |
| 467 (repeat :tag "optional" | |
| 468 (group (string :tag "Field") | |
| 469 (string :tag "Comment") | |
| 470 (option (choice :tag "Init" :value nil | |
| 471 (const nil) | |
| 472 (string :tag "string") | |
| 473 (function :tag "function"))) | |
| 474 (option (choice (const nil) | |
| 475 (const :tag "Alternative" t)))))) | |
| 476 (option | |
| 477 (list :tag "Crossref" | |
| 478 (repeat :tag "required" | |
| 479 (group (string :tag "Field") | |
| 480 (string :tag "Comment") | |
| 481 (option (choice :tag "Init" :value nil | |
| 482 (const nil) | |
| 483 (string :tag "string") | |
| 484 (function :tag "function"))) | |
| 485 (option (choice (const nil) | |
| 486 (const :tag "Alternative" t))))) | |
| 487 (repeat :tag "optional" | |
| 488 (group (string :tag "Field") | |
| 489 (string :tag "Comment") | |
| 490 (option (choice :tag "Init" :value nil | |
| 491 (const nil) | |
| 492 (string :tag "string") | |
| 493 (function :tag "function"))) | |
| 494 (option (choice (const nil) | |
| 495 (const :tag "Alternative" t)))))))))) | |
| 456 (put 'bibtex-entry-field-alist 'risky-local-variable t) | 496 (put 'bibtex-entry-field-alist 'risky-local-variable t) |
| 457 | 497 |
| 458 (defcustom bibtex-comment-start "@Comment" | 498 (defcustom bibtex-comment-start "@Comment" |
| 459 "String starting a BibTeX comment." | 499 "String starting a BibTeX comment." |
| 460 :group 'bibtex | 500 :group 'bibtex |