org-colview: Fix org-agenda-columns-active

* lisp/org-colview.el (org-agenda-columns): Set
  org-agenda-columns-active when columns get activated.
This commit is contained in:
Marco Wahl 2020-01-27 23:39:25 +01:00
parent 42ad656436
commit 1e55b18198
1 changed files with 2 additions and 2 deletions

View File

@ -1619,6 +1619,7 @@ PARAMS is a property list of parameters:
(dolist (entry cache)
(goto-char (car entry))
(org-columns--display-here (cdr entry)))
(setq-local org-agenda-columns-active t)
(when org-agenda-columns-show-summaries
(org-agenda-colview-summarize cache)))))))
@ -1683,8 +1684,7 @@ This will add overlays to the date lines, to show the summary for each day."
'face 'bold final))
(list spec final final)))))
fmt)
'dateline)
(setq-local org-agenda-columns-active t))))
'dateline))))
(if (bobp) (throw :complete t) (forward-line -1)))))))
(defun org-agenda-colview-compute (fmt)