diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-08-05 11:24:48 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-08-05 11:25:00 -0600 |
commit | f5a359f578214c00fa4dfef5274a59d9236480e6 (patch) | |
tree | b06dc3b75cb3303f990b2e75bbc0c823f4ba062e | |
parent | 44472fa6cf3082019342ef022f81c4b7980a2739 (diff) | |
download | org-mode-f5a359f578214c00fa4dfef5274a59d9236480e6.tar.gz |
make the "FILE" property non-special when resolving bibtex values
* lisp/org-bibtex.el (org-bibtex-get): Make the "FILE" property
non-special when resolving bibtex values.
-rw-r--r-- | lisp/org-bibtex.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index da6c1fe..068d174 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -279,8 +279,11 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t." ;;; Utility functions (defun org-bibtex-get (property) ((lambda (it) (when it (org-babel-trim it))) - (or (org-entry-get (point) (upcase property)) - (org-entry-get (point) (concat org-bibtex-prefix (upcase property)))))) + (let ((org-special-properties + (delete "FILE" (copy-sequence org-special-properties)))) + (or + (org-entry-get (point) (upcase property)) + (org-entry-get (point) (concat org-bibtex-prefix (upcase property))))))) (defun org-bibtex-put (property value) (let ((prop (upcase (if (keywordp property) |