tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-bibtex.el: Rename *org-bibtex-entries* to org-bibtex-entries. 

* org-bibtex.el (org-bibtex-entries): Rename from
(org-bibtex-read, org-bibtex-write): Use the new name.
This commit is contained in:
Bastien Guerry 2012-05-21 18:30:09 +02:00
parent 372948a88f
commit 937b56ec89
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-bibtex.el
View File

@ -210,7 +210,7 @@
(:year . "The year of publication or, for an unpublished work, the year it was written. Generally it should consist of four numerals, such as 1984, although the standard styles can handle any year whose last four nonpunctuation characters are numerals, such as '(about 1984)'")) (:year . "The year of publication or, for an unpublished work, the year it was written. Generally it should consist of four numerals, such as 1984, although the standard styles can handle any year whose last four nonpunctuation characters are numerals, such as '(about 1984)'"))
"Bibtex fields with descriptions.") "Bibtex fields with descriptions.")
(defvar *org-bibtex-entries* nil (defvar org-bibtex-entries nil
"List to hold parsed bibtex entries.") "List to hold parsed bibtex entries.")
(defcustom org-bibtex-autogen-keys nil (defcustom org-bibtex-autogen-keys nil
@ -597,7 +597,7 @@ With a prefix arg, query for optional fields."
(org-bibtex-create arg t)) (org-bibtex-create arg t))
(defun org-bibtex-read () (defun org-bibtex-read ()
"Read a bibtex entry and save to `*org-bibtex-entries*'. "Read a bibtex entry and save to `org-bibtex-entries'.
This uses `bibtex-parse-entry'." This uses `bibtex-parse-entry'."
(interactive) (interactive)
(flet ((keyword (str) (intern (concat ":" (downcase str)))) (flet ((keyword (str) (intern (concat ":" (downcase str))))
@ -617,14 +617,14 @@ This uses `bibtex-parse-entry'."
(otherwise field))) (otherwise field)))
(clean-space (strip-delim (cdr pair))))) (clean-space (strip-delim (cdr pair)))))
(save-excursion (bibtex-beginning-of-entry) (bibtex-parse-entry))) (save-excursion (bibtex-beginning-of-entry) (bibtex-parse-entry)))
*org-bibtex-entries*))) org-bibtex-entries)))
(defun org-bibtex-write () (defun org-bibtex-write ()
"Insert a heading built from the first element of `*org-bibtex-entries*'." "Insert a heading built from the first element of `org-bibtex-entries'."
(interactive) (interactive)
(when (= (length *org-bibtex-entries*) 0) (when (= (length org-bibtex-entries) 0)
(error "No entries in `*org-bibtex-entries*'.")) (error "No entries in `org-bibtex-entries'."))
(let ((entry (pop *org-bibtex-entries*)) (let ((entry (pop org-bibtex-entries))
(org-special-properties nil)) ; avoids errors with `org-entry-put' (org-special-properties nil)) ; avoids errors with `org-entry-put'
(flet ((val (field) (cdr (assoc field entry))) (flet ((val (field) (cdr (assoc field entry)))
(togtag (tag) (org-toggle-tag tag 'on))) (togtag (tag) (org-toggle-tag tag 'on)))