summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatt Lundin <mdl@imapmail.org>2011-05-01 16:56:32 -0400
committerEric Schulte <schulte.eric@gmail.com>2011-05-02 10:19:36 -0600
commitc446b4dfbeed966f35e61a42542e664638e8fe93 (patch)
tree59606ca88c08df80cc9fb20448428153c1518212
parent5cfb04a4e1c72a7e09d66eb9d8692fd624b65f28 (diff)
downloadorg-mode-c446b4dfbeed966f35e61a42542e664638e8fe93.tar.gz
Do not export TYPE property as field when allowing arbitrary fields
* lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property as field
-rw-r--r--lisp/org-bibtex.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index 12956fe..d3eb6eb 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -312,11 +312,13 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
org-bibtex-prefix)
(mapcar
(lambda (kv)
- (when (string-match org-bibtex-prefix (car kv))
- (cons (downcase (replace-regexp-in-string
- org-bibtex-prefix ""
- (car kv)))
- (cdr kv))))
+ (let ((key (car kv)) (val (cdr kv)))
+ (when (and (string-match org-bibtex-prefix key)
+ (not (equalp
+ (concat org-bibtex-prefix "TYPE") key)))
+ (cons (downcase (replace-regexp-in-string
+ org-bibtex-prefix "" key))
+ val))))
(org-entry-properties nil 'standard))
(mapcar
(lambda (field)