From a0c1ca54bbdd9196716edc2d7cd6514e210d4e1b Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 13 Sep 2012 00:48:40 +0200 Subject: [PATCH] org.el (org-scan-tags): Fix the declaration and the use of `org-agenda-format-item' * org.el (org-scan-tags): Fix the declaration and the use of `org-agenda-format-item'. --- lisp/org.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 3ee307ee1..113e35d94 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3856,7 +3856,7 @@ Normal means, no org-mode-specific context." (declare-function org-agenda-skip "org-agenda" ()) (declare-function org-agenda-format-item "org-agenda" - (extra txt &optional category tags dotime noprefix remove-re habitp)) + (extra txt &optional level category tags dotime noprefix remove-re habitp)) (declare-function org-agenda-new-marker "org-agenda" (&optional pos)) (declare-function org-agenda-change-all-lines "org-agenda" (newhead hdmarker &optional fixface just-this)) @@ -13201,7 +13201,7 @@ headlines matching this string." (setq todo (if (match-end 1) (org-match-string-no-properties 2)) tags (if (match-end 4) (org-match-string-no-properties 4))) (goto-char (setq lspos (match-beginning 0))) - (setq level (org-reduced-level (funcall outline-level)) + (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (setq i llast llast level) ;; remove tag lists from same and sublevels @@ -13260,7 +13260,6 @@ headlines matching this string." (and (eq action 'agenda) org-agenda-archives-mode)))) ;; select this headline - (cond ((eq action 'sparse-tree) (and org-highlight-sparse-tree-matches @@ -13275,7 +13274,7 @@ headlines matching this string." (if (eq org-tags-match-list-sublevels 'indented) (make-string (1- level) ?.) "") (org-get-heading)) - category + level category tags-list) priority (org-get-priority txt)) (goto-char lspos)