Make function to update Org item headlines also work in agenda

site-lisp/db-org.el

@@ -626,27 +626,35 @@ Interactively query for HEADLINE when not provided."
   (interactive "sNew Headline: ")
 
   ;; We should check this before asking the user for the new headline, but how?
-  (unless (derived-mode-p 'org-mode)
-    (user-error "Not in an Org mode buffer, aborting"))
+  (unless (derived-mode-p 'org-mode 'org-agenda-mode)
+    (user-error "Neither in an Org mode nor Org agenda buffer, aborting"))
 
   (when (string-match-p "\n" new-headline)
     (user-error "New headline contains newlines, aborting"))
 
-  (when (org-before-first-heading-p)
-    (user-error "Point is before first headline, aborting"))
-
-  (let ((old-headline (org-entry-get (point) "ITEM")))
-    (org-edit-headline new-headline)
-
-    ;; This simulates adding a note by manually.  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))))
+  (save-window-excursion
+    (save-mark-and-excursion
+      (when (derived-mode-p 'org-agenda-mode)
+        (org-agenda-goto))
+
+      (when (org-before-first-heading-p)
+        (user-error "Point is before first headline, aborting"))
+
+      (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)))))
+
+  (when (derived-mode-p 'org-agenda-mode)
+    (org-agenda-redo)))
 
 
 ;;; Calendar