From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: [PATCH] Prevent creation of duplicate footnote sections. Date: Fri, 11 Mar 2011 08:49:06 -0500 Message-ID: <87zkozi2j5.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from [140.186.70.92] (port=58565 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pyl9t-0008G0-Hk for emacs-orgmode@gnu.org; Sun, 13 Mar 2011 09:16:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pyl9s-0005RW-Ho for emacs-orgmode@gnu.org; Sun, 13 Mar 2011 09:16:33 -0400 Received: from out5.smtp.messagingengine.com ([66.111.4.29]:50603) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Pyl9s-0005RP-EO for emacs-orgmode@gnu.org; Sun, 13 Mar 2011 09:16:32 -0400 Received: from compute2.internal (compute2.nyi.mail.srv.osa [10.202.2.42]) by gateway1.messagingengine.com (Postfix) with ESMTP id 43DDD2088A for ; Sun, 13 Mar 2011 09:16:32 -0400 (EDT) Received: from archdesk (67-197-63-212.rh2.dyn.cm.comporium.net [67.197.63.212]) by mail.messagingengine.com (Postfix) with ESMTPSA id 0407D400321 for ; Sun, 13 Mar 2011 09:16:31 -0400 (EDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org Mode * lisp/org-footnote.el: (org-footnote-create-definition): Allow for footnote sections above the current footnote insertion point. Fixes bug in which org-mode will create a new footnote section if the current footnote section is not beneath the current insertion point. --- lisp/org-footnote.el | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 0524b41..2ce6668 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -291,6 +291,7 @@ or new, let the user edit the definition of the footnote." ;; No section, put footnote into the current outline node nil ;; Try to find or make the special node + (goto-char (point-min)) (setq re (concat "^\\*+[ \t]+" org-footnote-section "[ \t]*$")) (unless (or (re-search-forward re nil t) (and (progn (widen) t) -- 1.7.4.1