org-bibtex: Tiny code clean-up

* lisp/org-bibtex.el (org-bibtex-headline): Tiny code clean-up.
This commit is contained in:
Nicolas Goaziou 2014-04-20 10:14:03 +02:00
parent d9312231e9
commit c7812ff8a0
1 changed files with 3 additions and 3 deletions

View File

@ -371,9 +371,9 @@ This variable is relevant only if `org-bibtex-tags-are-keywords' is t."
(bibtex-beginning-of-entry)
(if (re-search-forward "keywords.*=.*{\\(.*\\)}" nil t)
(progn (goto-char (match-end 1)) (insert ", "))
(progn (re-search-forward ",\\(\n\\)" nil t)
(insert " keywords={},\n"))
(re-search-backward "}," nil t))
(search-forward ",\n" nil t)
(insert " keywords={},\n")
(search-backward "}," nil t))
(insert (mapconcat #'identity tags ", ")))
(buffer-string))))))