]> git.eshelyaron.com Git - emacs.git/commitdiff
lisp/textmodes/bibtex.el (bibtex-url): Doc fix
authorRoland Winkler <winkler@gnu.org>
Sat, 13 Apr 2013 20:41:52 +0000 (15:41 -0500)
committerRoland Winkler <winkler@gnu.org>
Sat, 13 Apr 2013 20:41:52 +0000 (15:41 -0500)
lisp/ChangeLog
lisp/textmodes/bibtex.el

index d01e57fa31f8b1e70b4a60abc6caea4a01bdd5d2..de1ba013d1c8215b2fc727fa7346381881e14c41 100644 (file)
@@ -1,4 +1,8 @@
-2012-09-23  Roland Winkler  <winkler@gnu.org>
+2013-04-13  Roland Winkler  <winkler@gnu.org>
+
+       * textmodes/bibtex.el (bibtex-url): Doc fix.
+
+2013-04-13  Roland Winkler  <winkler@gnu.org>
 
        * textmodes/bibtex.el (bibtex-initialize): If the current buffer
        does not visit a BibTeX file, exclude it from the list of buffers
index 669a33bff73811b694bb147061f3430ee2c2523c..1daa0186bdbd9673e8ed87495165a8877ed36afd 100644 (file)
@@ -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))