Browse Source

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

* lisp/org-colview.el (org-agenda-columns): Set
  org-agenda-columns-active when columns get activated.
Marco Wahl 5 years ago
parent
commit
1e55b18198
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-colview.el

+ 2 - 2
lisp/org-colview.el

@@ -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)
-		(setq-local org-agenda-columns-active t))))
+		 'dateline))))
 	  (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)