瀏覽代碼

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 年之前
父節點
當前提交
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)
 	    (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)