From: Bernt Hansen <bernt@norang.ca>
To: emacs-orgmode@gnu.org
Cc: Bernt Hansen <bernt@norang.ca>
Subject: [PATCH] Refactor refiling code
Date: Sun, 28 Mar 2010 22:16:45 -0400 [thread overview]
Message-ID: <1269829005-25254-5-git-send-email-bernt@norang.ca> (raw)
In-Reply-To: <1269829005-25254-1-git-send-email-bernt@norang.ca>
Allow C-2 C-c C-w to work in the agenda.
Update agenda after refiling
This rebuilds the agenda buffer after the refile operation completes.
It was removing the to-be-refiled task before prompting for the location
which felt a little strange. While on the prompt you can't see
the task you are refiling anymore since it was just removed from the
agenda list and if you aborted from the refile operation
with C-g then the task to be refiled has already been removed.
---
lisp/org-agenda.el | 11 ++++-------
1 files changed, 4 insertions(+), 7 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 797728b..adcefad 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6207,18 +6207,15 @@ If this information is not given, the function uses the tree at point."
(let* ((marker (or (org-get-at-bol 'org-hd-marker)
(org-agenda-error)))
(buffer (marker-buffer marker))
- (pos (marker-position marker))
- (rfloc (or rfloc
- (org-refile-get-location
- (if goto "Goto: " "Refile to: ") buffer
- org-refile-allow-creating-parent-nodes))))
+ (pos (marker-position marker)))
(with-current-buffer buffer
(save-excursion
(save-restriction
(widen)
(goto-char marker)
- (org-remove-subtree-entries-from-agenda)
- (org-refile goto buffer rfloc)))))))
+ (org-refile goto buffer rfloc)
+ (with-current-buffer "*Org Agenda*"
+ (org-agenda-redo))))))))
(defun org-agenda-open-link (&optional arg)
"Follow the link in the current line, if any.
--
1.7.0.2.279.gf1ba1c
next prev parent reply other threads:[~2010-03-29 2:17 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-29 2:16 [PATCH] Miscellaneous fixes Bernt Hansen
2010-03-29 2:16 ` [PATCH] Reveal after goto Bernt Hansen
2010-03-29 2:16 ` [PATCH] Add completions for checkbox targets Bernt Hansen
2010-03-29 2:16 ` [PATCH] Typo: left-over -> leftover Bernt Hansen
2010-03-29 2:16 ` Bernt Hansen [this message]
2010-03-29 3:53 ` [PATCH] Miscellaneous fixes Carsten Dominik
2010-03-29 11:51 ` Bernt Hansen
2010-03-29 12:24 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1269829005-25254-5-git-send-email-bernt@norang.ca \
--to=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).