From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: [PATCH 1/2] Ignore TODO keyword when taking title from headline Date: Fri, 29 Apr 2011 20:54:00 -0400 Message-ID: <87oc3oilit.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:37723) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFypx-00029D-U6 for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:19:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QFypw-0004yB-Tq for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:19:09 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]:54194) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFypw-0004xT-Mx for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:19:08 -0400 Received: from compute5.internal (compute5.nyi.mail.srv.osa [10.202.2.45]) by gateway1.messagingengine.com (Postfix) with ESMTP id B4D9D2078F for ; Fri, 29 Apr 2011 21:19:07 -0400 (EDT) Received: from archdesk (67-197-161-170.dyn.comporium.net [67.197.161.170]) by mail.messagingengine.com (Postfix) with ESMTPSA id 751A440573A for ; Fri, 29 Apr 2011 21:19:07 -0400 (EDT) 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): When taking title from headline, grab only the headline text, not metadata. --- When generating an autokey or exporting to bibtex, the metadata (e.g., the TODO keyword) was being included in the title. This patch ensures that only the headline text is included. lisp/org-bibtex.el | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index f4614fb..fcb25ca 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -289,7 +289,7 @@ IDs must be unique." (lambda (field) (let ((value (or (org-bibtex-get (from field)) (and (equal :title field) - (org-get-heading))))) + (nth 4 (org-heading-components)))))) (when value (cons (from field) value)))) (flatten (val :required (val (to type) org-bibtex-types)) -- 1.7.5