Fix global dynamic variables prefixes in org-bibtex.el.
Thanks to Martyn Jago for the patch.
This commit is contained in:
parent
c24fa194a6
commit
08d9b46622
|
@ -112,7 +112,7 @@
|
||||||
(eval-when-compile
|
(eval-when-compile
|
||||||
(require 'cl))
|
(require 'cl))
|
||||||
|
|
||||||
(defvar description nil) ; dynamically scoped from org.el
|
(defvar org-bibtex-description nil) ; dynamically scoped from org.el
|
||||||
(defvar org-id-locations)
|
(defvar org-id-locations)
|
||||||
|
|
||||||
(declare-function bibtex-beginning-of-entry "bibtex" ())
|
(declare-function bibtex-beginning-of-entry "bibtex" ())
|
||||||
|
@ -467,7 +467,7 @@ With optional argument OPTIONAL, also prompt for optional fields."
|
||||||
:btype (or (cdr (assoc "=type=" entry)) "[no type]")
|
:btype (or (cdr (assoc "=type=" entry)) "[no type]")
|
||||||
:type "bibtex"
|
:type "bibtex"
|
||||||
:link link
|
:link link
|
||||||
:description description))))
|
:description org-bibtex-description))))
|
||||||
|
|
||||||
(defun org-create-file-search-in-bibtex ()
|
(defun org-create-file-search-in-bibtex ()
|
||||||
"Create the search string and description for a BibTeX database entry."
|
"Create the search string and description for a BibTeX database entry."
|
||||||
|
@ -485,7 +485,7 @@ With optional argument OPTIONAL, also prompt for optional fields."
|
||||||
(bibtex-autokey-titleword-case-convert-function 'identity)
|
(bibtex-autokey-titleword-case-convert-function 'identity)
|
||||||
(bibtex-autokey-titleword-length 'infty)
|
(bibtex-autokey-titleword-length 'infty)
|
||||||
(bibtex-autokey-year-title-separator ": "))
|
(bibtex-autokey-year-title-separator ": "))
|
||||||
(setq description (bibtex-generate-autokey)))
|
(setq org-bibtex-description (bibtex-generate-autokey)))
|
||||||
;; Now parse the entry, get the key and return it.
|
;; Now parse the entry, get the key and return it.
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(bibtex-beginning-of-entry)
|
(bibtex-beginning-of-entry)
|
||||||
|
|
Loading…
Reference in New Issue