Просмотр исходного кода

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 лет назад
Родитель
Сommit
1e55b18198
1 измененных файлов с 2 добавлено и 2 удалено
  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)