|
@@ -555,7 +555,7 @@ If nonew is t, add data to the headline of the entry at point."
|
|
|
(org-bibtex-put "TITLE" title)))
|
|
|
(org-bibtex-put "TYPE" (substring (symbol-name type) 1))
|
|
|
(org-bibtex-fleshout type arg)
|
|
|
- (mapc (lambda (tag) (org-toggle-tag tag t)) org-bibtex-tags)))
|
|
|
+ (mapc (lambda (tag) (org-toggle-tag tag 'on)) org-bibtex-tags)))
|
|
|
|
|
|
(defun org-bibtex-create-in-current-entry (&optional arg)
|
|
|
"Add bibliographical data to the current entry.
|
|
@@ -594,7 +594,7 @@ This uses `bibtex-parse-entry'."
|
|
|
(let ((entry (pop *org-bibtex-entries*))
|
|
|
(org-special-properties nil)) ; avoids errors with `org-entry-put'
|
|
|
(flet ((val (field) (cdr (assoc field entry)))
|
|
|
- (togtag (tag) (org-toggle-tag tag t)))
|
|
|
+ (togtag (tag) (org-toggle-tag tag 'on)))
|
|
|
(org-insert-heading)
|
|
|
(insert (val :title))
|
|
|
(org-bibtex-put "TITLE" (val :title))
|