ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refresh the agenda when redoing the column view.

This commit is contained in:
Carsten Dominik 2008-05-29 08:50:44 +02:00
parent 82e14ee963
commit 4178a34c48
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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 <dominik@science.uva.nl>

19
lisp/org-colview.el
View File

@ -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 ()