소스 검색

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 17 년 전
부모
커밋
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))