From d23a8dc817cd5baffac7629a0b4f17ee523ca636 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 8 Jan 2022 09:11:02 +0100 Subject: [PATCH] Fix adding notes when updating headlines I think I just did it wrong, so let's try adding a note by calling `org-add-note` directly. So far it's working better, but I am not quite sure whether I really did it right this time. In any way, `org-add-note` keeps track of all the bookkeeping for taking notes, so my code is simpler now :) --- site-lisp/db-org.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 5574beb..5db0b0a 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -710,15 +710,12 @@ Interactively query for HEADLINE when not provided." (let ((old-headline (org-entry-get (point) "ITEM"))) (org-edit-headline new-headline) - ;; This simulates manually adding a note. It may also work by directly - ;; using `org-add-note', but this function makes use of `post-command-hook' - ;; in a way I do not understand. So let's try it that way. - (move-marker org-log-note-marker (point)) - (let ((org-log-note-purpose 'note)) - (org-add-log-note nil) - (insert ; This goes into the *Org Note* buffer. - (format "Changed headline from: %s" old-headline)) - (org-store-log-note))))) + ;; This simulates adding a note manually. I am not quite sure how + ;; robust this is, but let's try it out. + (org-add-note) + (insert ; This goes into the *Org Note* buffer. + (format "Changed headline from: %s" old-headline)) + (org-store-log-note)))) (when (derived-mode-p 'org-agenda-mode) (org-agenda-redo)))