[O] [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields

[Matt Lundin]

* lisp/org-bibtex.el (org-bibtex-headline): Don't export TYPE property
  as field
---
 lisp/org-bibtex.el |   12 +++++++-----
 1 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index cf7fc49..513519b 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -320,11 +320,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)
-- 
1.7.5