[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/textmodes bibtex.el
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] emacs/lisp/textmodes bibtex.el |
Date: |
Mon, 06 Apr 2009 20:43:19 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Roland Winkler <winkler> 09/04/06 20:43:18
Modified files:
lisp/textmodes : bibtex.el
Log message:
(bibtex-format-entry, bibtex-search-crossref): Allow OPT prefix for
name of crossref field.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/bibtex.el?cvsroot=emacs&r1=1.146&r2=1.147
Patches:
Index: bibtex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -b -r1.146 -r1.147
--- bibtex.el 20 Feb 2009 04:17:55 -0000 1.146
+++ bibtex.el 6 Apr 2009 20:43:18 -0000 1.147
@@ -1932,7 +1932,8 @@
;; 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 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/textmodes bibtex.el,
Roland Winkler <=