Ver código fonte

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 6 anos atrás
pai
commit
1e55b18198
1 arquivos alterados com 2 adições e 2 exclusões
  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)