瀏覽代碼

Agenda: No longer indent matching sublevels by dots.

When a tags/property match does match an entry and its sublevels, the
sublevels used to be indented by dots, to indicate that the matches
likely result from tag inheritance.  This is now no longer the
default, but you can get it back with

   (setq org-tags-match-list-sublevels 'indented)
Carsten Dominik 16 年之前
父節點
當前提交
132dc95042
共有 2 個文件被更改,包括 9 次插入3 次删除
  1. 4 0
      lisp/ChangeLog
  2. 5 3
      lisp/org.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2009-03-21  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-scan-tags): Test the value org
+	`org-tags-match-list-sublevels'.
+	(org-tags-match-list-sublevels): New allowed value: indented.
+
 	* org-export-latex.el (org-export-latex-make-header): Apply macros
 	in header.
 

+ 5 - 3
lisp/org.el

@@ -2232,7 +2232,10 @@ This variable is semi-obsolete and probably should always be true.  It
 is better to limit inheritance to certain tags using the variables
 `org-use-tag-inheritance' and `org-tags-exclude-from-inheritance'."
   :group 'org-tags
-  :type 'boolean)
+  :type '(choice
+	  (const :tag "No, don't list them" nil)
+	  (const :tag "Yes, do list them" t)
+	  (const :tag "List them, indented with leading dots" indented)))
 
 (defvar org-tags-history nil
   "History of minibuffer reads for tags.")
@@ -9972,11 +9975,10 @@ only lines with a TODO keyword are included in the output."
 	      (setq txt (org-format-agenda-item
 			 ""
 			 (concat
-			  (if org-tags-match-list-sublevels
+			  (if (eq org-tags-match-list-sublevels 'indented)
 			      (make-string (1- level) ?.) "")
 			  (org-get-heading))
 			 category
-			 ;(org-get-tags-at)
 			 tags-list
 			 )
 		    priority (org-get-priority txt))