From 6646e848210529fc797adeb8230ce77369824909 Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Sat, 13 Apr 2013 15:41:52 -0500 Subject: [PATCH] lisp/textmodes/bibtex.el (bibtex-url): Doc fix --- lisp/ChangeLog | 6 +++++- lisp/textmodes/bibtex.el | 3 +++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d01e57fa31..de1ba013d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,8 @@ -2012-09-23 Roland Winkler +2013-04-13 Roland Winkler + + * textmodes/bibtex.el (bibtex-url): Doc fix. + +2013-04-13 Roland Winkler * textmodes/bibtex.el (bibtex-initialize): If the current buffer does not visit a BibTeX file, exclude it from the list of buffers diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 669a33bff7..1daa0186bd 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -5168,6 +5168,9 @@ Return the URL or nil if none can be generated." (if (stringp (car scheme)) (setq fmt (pop scheme))) (dolist (step scheme) + ;; In the first STEP, if the field contains multiple + ;; matches, we want the match the closest to point. + ;; (if (eq step (car scheme)) (setq text (cdr (assoc-string (car step) fields-alist t))) (if (string-match (nth 1 step) text) (push (cond ((functionp (nth 2 step)) -- 2.20.1