From: Roland Winkler Date: Sat, 13 Apr 2013 20:41:52 +0000 (-0500) Subject: lisp/textmodes/bibtex.el (bibtex-url): Doc fix X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~477 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6646e848210529fc797adeb8230ce77369824909;p=emacs.git lisp/textmodes/bibtex.el (bibtex-url): Doc fix --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d01e57fa31f..de1ba013d1c 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 669a33bff73..1daa0186bdb 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))