Browse Source

org-bibtex: Tiny code clean-up

* lisp/org-bibtex.el (org-bibtex-headline): Tiny code clean-up.
Nicolas Goaziou 11 years ago
parent
commit
c7812ff8a0
1 changed files with 3 additions and 3 deletions
  1. 3 3
      lisp/org-bibtex.el

+ 3 - 3
lisp/org-bibtex.el

@@ -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))))))