From 4178a34c48b1e8aac294b133307ca8dfda324f44 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 29 May 2008 08:50:44 +0200 Subject: [PATCH] Refresh the agenda when redoing the column view. --- lisp/ChangeLog | 1 + lisp/org-colview.el | 19 ++++++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0abdfad4a..4f2c1bfc9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,7 @@ when in agenda. (org-columns-edit-value): Fixed bug with editing values from agenda column view. + (org-columns-redo): Also redo the agenda itself. 2008-05-28 Carsten Dominik diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 9d9754fd8..cbd1e479c 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -845,13 +845,18 @@ Don't set this, this is meant for dynamic scoping.") "Construct the column display again." (interactive) (message "Recomputing columns...") - (save-excursion - (if (marker-position org-columns-begin-marker) - (goto-char org-columns-begin-marker)) - (org-columns-remove-overlays) - (if (org-mode-p) - (call-interactively 'org-columns) - (call-interactively 'org-agenda-columns))) + (let ((line (org-current-line)) + (col (current-column))) + (save-excursion + (if (marker-position org-columns-begin-marker) + (goto-char org-columns-begin-marker)) + (org-columns-remove-overlays) + (if (org-mode-p) + (call-interactively 'org-columns) + (org-agenda-redo) + (call-interactively 'org-agenda-columns))) + (goto-line line) + (move-to-column col)) (message "Recomputing columns...done")) (defun org-columns-not-in-agenda () -- 2.11.4.GIT