andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/textmodes/bibtex.el (bibtex-url): Doc fix

Browse source
This commit is contained in:
Roland Winkler 2013-04-13 15:41:52 -05:00
parent 23a0e159ee
commit 6646e84821
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View 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

3
lisp/textmodes/bibtex.el
View 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))