summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-08-05 11:24:48 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-08-05 11:25:00 -0600
commitf5a359f578214c00fa4dfef5274a59d9236480e6 (patch)
treeb06dc3b75cb3303f990b2e75bbc0c823f4ba062e
parent44472fa6cf3082019342ef022f81c4b7980a2739 (diff)
downloadorg-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.el7
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)