From mboxrd@z Thu Jan 1 00:00:00 1970 From: James TD Smith Subject: [PATCH] Bugfix in org-add-log-setup. Date: Sun, 19 Oct 2008 17:22:17 +0100 Message-ID: <1224433338-16661-1-git-send-email-ahktenzero@mohorovi.cc> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Krb2y-0000Bx-6T for emacs-orgmode@gnu.org; Sun, 19 Oct 2008 12:22:28 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Krb2w-0000B5-JF for emacs-orgmode@gnu.org; Sun, 19 Oct 2008 12:22:27 -0400 Received: from [199.232.76.173] (port=42887 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Krb2w-0000B2-Dl for emacs-orgmode@gnu.org; Sun, 19 Oct 2008 12:22:26 -0400 Received: from 81-86-40-42.dsl.pipex.com ([81.86.40.42]:53845 helo=yog-sothoth.mohorovi.cc) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Krb2v-00054J-Uf for emacs-orgmode@gnu.org; Sun, 19 Oct 2008 12:22:26 -0400 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: emacs-orgmode@gnu.org --- lisp/ChangeLog | 6 ++++++ lisp/org.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 35ce9c3..ad7c9fe 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-10-19 James TD Smith + + * org.el (org-add-log-setup): Bugfix; code to find insertion point + after drawers was skipping ahead one line too many, so notes were + inserted after the first note instead of before it. + 2008-10-18 Carsten Dominik * org-table.el (orgtbl-to-html): Bind `html-table-tag' for the diff --git a/lisp/org.el b/lisp/org.el index 9c08ba4..85f138d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8407,7 +8407,8 @@ EXTRA is additional text that will be inserted into the notes buffer." (while (looking-at org-drawer-regexp) (goto-char (match-end 0)) (re-search-forward org-property-end-re (point-max) t) - (forward-line)))) + (forward-line)) + (forward-line -1))) (unless org-log-states-order-reversed (and (= (char-after) ?\n) (forward-char 1)) (org-skip-over-state-notes) -- 1.5.6.5