From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: Re: [PATCH 3/4] Do not export TYPE property as field when allowing arbitrary fields Date: Sun, 01 May 2011 17:10:36 -0400 Message-ID: <87ei4inn3n.fsf@fastmail.fm> References: <87k4eann8c.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:50157) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGduZ-0004eb-11 for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:10:39 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QGduY-0006wG-6e for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:10:38 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]:53622) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGduY-0006wC-17 for emacs-orgmode@gnu.org; Sun, 01 May 2011 17:10:38 -0400 Received: from compute1.internal (compute1.nyi.mail.srv.osa [10.202.2.41]) by gateway1.messagingengine.com (Postfix) with ESMTP id EF54021350 for ; Sun, 1 May 2011 17:10:37 -0400 (EDT) Received: from archdesk (67-197-161-170.dyn.comporium.net [67.197.161.170]) by mail.messagingengine.com (Postfix) with ESMTPSA id AACDF440B14 for ; Sun, 1 May 2011 17:10:37 -0400 (EDT) In-Reply-To: <87k4eann8c.fsf@fastmail.fm> (Matt Lundin's message of "Sun, 1 May 2011 16:56:32 -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 The subject should be patch 3/4 - sorry. Matt Lundin writes: > * 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)