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