[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112278: lisp/textmodes/bibtex.el (bi
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112278: lisp/textmodes/bibtex.el (bibtex-url): Doc fix |
Date: |
Sat, 13 Apr 2013 15:41:52 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112278
committer: Roland Winkler <address@hidden>
branch nick: trunk
timestamp: Sat 2013-04-13 15:41:52 -0500
message:
lisp/textmodes/bibtex.el (bibtex-url): Doc fix
modified:
lisp/ChangeLog
lisp/textmodes/bibtex.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-04-13 20:38:52 +0000
+++ b/lisp/ChangeLog 2013-04-13 20:41:52 +0000
@@ -1,4 +1,8 @@
-2012-09-23 Roland Winkler <address@hidden>
+2013-04-13 Roland Winkler <address@hidden>
+
+ * textmodes/bibtex.el (bibtex-url): Doc fix.
+
+2013-04-13 Roland Winkler <address@hidden>
* textmodes/bibtex.el (bibtex-initialize): If the current buffer
does not visit a BibTeX file, exclude it from the list of buffers
=== modified file 'lisp/textmodes/bibtex.el'
--- a/lisp/textmodes/bibtex.el 2013-04-13 20:38:52 +0000
+++ b/lisp/textmodes/bibtex.el 2013-04-13 20:41:52 +0000
@@ -5168,6 +5168,9 @@
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112278: lisp/textmodes/bibtex.el (bibtex-url): Doc fix,
Roland Winkler <=