mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(bibtex-format-entry, bibtex-search-crossref): Allow OPT prefix for

Browse Source 
name of crossref field.
This commit is contained in:
Roland Winkler 2009-04-06 20:44:15 +00:00
parent 45f8cb0c08
commit 45cb4eb44f
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-04-06 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
* textmodes/bibtex.el (bibtex-format-entry)
(bibtex-search-crossref): Allow OPT prefix for name of crossref
field.
2009-04-06 Sam Steingold <sds@gnu.org>
* simple.el (completion-list-mode-map): Bind "q" to quit-window,

5
lisp/textmodes/bibtex.el
View File

@ -1932,7 +1932,8 @@ Formats current entry according to variable `bibtex-entry-format'."
;; Do we have a crossref key?
(goto-char (point-min))
(if (setq bounds (bibtex-search-forward-field "crossref"))
(if (setq bounds (bibtex-search-forward-field
"\\(OPT\\)?crossref"))
(let ((text (bibtex-text-in-field-bounds bounds t)))
(unless (equal "" text)
(setq crossref-key text))))
@ -3521,7 +3522,7 @@ for a crossref key, t otherwise."
(end (cdr (bibtex-valid-entry t)))
(_ (unless end (error "Not inside valid entry")))
(beg (match-end 0)) ; set by `bibtex-valid-entry'
(bounds (bibtex-search-forward-field "crossref" end))
(bounds (bibtex-search-forward-field "\\(OPT\\)?crossref" end))
case-fold-search best temp crossref-key)
(if bounds
(setq crossref-key (bibtex-text-in-field-bounds bounds t)