From c446b4dfbeed966f35e61a42542e664638e8fe93 Mon Sep 17 00:00:00 2001 From: Matt Lundin Date: Sun, 1 May 2011 16:56:32 -0400 Subject: [PATCH] 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 --- lisp/org-bibtex.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index 12956fe01..d3eb6ebcb 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) -- 2.11.4.GIT