Commit 4106334c authored by Roland Winkler's avatar Roland Winkler
Browse files

(bibtex-enclosing-field): Exclude entry delimiter if it is at the end

of the current line.
(bibtex-generate-url-list): Fix docstring.
parent 365b9a62
...@@ -909,7 +909,7 @@ If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded ...@@ -909,7 +909,7 @@ If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded
for generating the URL. for generating the URL.
Set this variable before loading BibTeX mode. Set this variable before loading BibTeX mode.
The following is a complex example, see http://link.aps.org/linkfaq.html. The following is a complex example, see URL `http://link.aps.org/'.
(((\"journal\" . \"\\\\=<\\(PR[ABCDEL]?\\|RMP\\)\\\\=>\") (((\"journal\" . \"\\\\=<\\(PR[ABCDEL]?\\|RMP\\)\\\\=>\")
\"http://link.aps.org/abstract/%s/v%s/p%s\" \"http://link.aps.org/abstract/%s/v%s/p%s\"
...@@ -1836,13 +1836,16 @@ are ignored. Return point" ...@@ -1836,13 +1836,16 @@ are ignored. Return point"
"Search for BibTeX field enclosing point. "Search for BibTeX field enclosing point.
For `bibtex-mode''s internal algorithms, a field begins at the comma For `bibtex-mode''s internal algorithms, a field begins at the comma
following the preceding field. Usually, this is not what the user expects. following the preceding field. Usually, this is not what the user expects.
Thus if COMMA is non-nil, the \"current field\" includes the terminating comma. Thus if COMMA is non-nil, the \"current field\" includes the terminating comma
as well as the entry delimiter if it appears on the same line.
Unless NOERR is non-nil, signal an error if no enclosing field is found. Unless NOERR is non-nil, signal an error if no enclosing field is found.
On success return bounds, nil otherwise. Do not move point." On success return bounds, nil otherwise. Do not move point."
(save-excursion (save-excursion
(when comma (when comma
(end-of-line) (end-of-line)
(skip-chars-backward " \t") (skip-chars-backward " \t")
;; Ignore entry delimiter and comma at end of line.
(if (memq (preceding-char) '(?} ?\))) (forward-char -1))
(if (= (preceding-char) ?,) (forward-char -1))) (if (= (preceding-char) ?,) (forward-char -1)))
(let ((bounds (bibtex-search-backward-field bibtex-field-name t))) (let ((bounds (bibtex-search-backward-field bibtex-field-name t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment