From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: [PATCH 5/6] Do not export TYPE property as field when allowing arbitrary fields Date: Sun, 1 May 2011 16:56:32 -0400 Message-ID: <87k4eann8c.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:57048) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGdrp-0003ia-4F for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:07:49 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QGdro-0006Ww-BA for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:07:49 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]:46656) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGdro-0006Ws-72 for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:07:48 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org Mode * 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