tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-colview.el
View file

@ -1619,6 +1619,7 @@ PARAMS is a property list of parameters:
(dolist (entry cache) (dolist (entry cache)
(goto-char (car entry)) (goto-char (car entry))
(org-columns--display-here (cdr entry))) (org-columns--display-here (cdr entry)))
(setq-local org-agenda-columns-active t)
(when org-agenda-columns-show-summaries (when org-agenda-columns-show-summaries
(org-agenda-colview-summarize cache))))))) (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)) 'face 'bold final))
(list spec final final))))) (list spec final final)))))
fmt) fmt)
'dateline) 'dateline))))
(setq-local org-agenda-columns-active t))))
(if (bobp) (throw :complete t) (forward-line -1))))))) (if (bobp) (throw :complete t) (forward-line -1)))))))
(defun org-agenda-colview-compute (fmt) (defun org-agenda-colview-compute (fmt)