diff options
| author | Roland Winkler <winkler@gnu.org> | 2013-04-13 15:41:52 -0500 |
|---|---|---|
| committer | Roland Winkler <winkler@gnu.org> | 2013-04-13 15:41:52 -0500 |
| commit | 6646e848210529fc797adeb8230ce77369824909 (patch) | |
| tree | 308e02d15b38e29a6d26b0352a34d561bb6cba6d | |
| parent | 23a0e159ee303e0b3cd00483a0e2c3b1649d8642 (diff) | |
| download | emacs-6646e848210529fc797adeb8230ce77369824909.tar.gz | |
lisp/textmodes/bibtex.el (bibtex-url): Doc fix
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 3 |
2 files changed, 8 insertions, 1 deletions
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 <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 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)) |