ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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'.
This commit is contained in:
Bastien Guerry 2012-09-13 00:48:40 +02:00
parent 864519b67e
commit a0c1ca54bb
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -3856,7 +3856,7 @@ Normal means, no org-mode-specific context."
(declare-function org-agenda-skip "org-agenda" ()) (declare-function org-agenda-skip "org-agenda" ())
(declare-function (declare-function
org-agenda-format-item "org-agenda" 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-new-marker "org-agenda" (&optional pos))
(declare-function org-agenda-change-all-lines "org-agenda" (declare-function org-agenda-change-all-lines "org-agenda"
(newhead hdmarker &optional fixface just-this)) (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)) (setq todo (if (match-end 1) (org-match-string-no-properties 2))
tags (if (match-end 4) (org-match-string-no-properties 4))) tags (if (match-end 4) (org-match-string-no-properties 4)))
(goto-char (setq lspos (match-beginning 0))) (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)) category (org-get-category))
(setq i llast llast level) (setq i llast llast level)
;; remove tag lists from same and sublevels ;; remove tag lists from same and sublevels
@ -13260,7 +13260,6 @@ headlines matching this string."
(and (eq action 'agenda) org-agenda-archives-mode)))) (and (eq action 'agenda) org-agenda-archives-mode))))
;; select this headline ;; select this headline
(cond (cond
((eq action 'sparse-tree) ((eq action 'sparse-tree)
(and org-highlight-sparse-tree-matches (and org-highlight-sparse-tree-matches
@ -13275,7 +13274,7 @@ headlines matching this string."
(if (eq org-tags-match-list-sublevels 'indented) (if (eq org-tags-match-list-sublevels 'indented)
(make-string (1- level) ?.) "") (make-string (1- level) ?.) "")
(org-get-heading)) (org-get-heading))
category level category
tags-list) tags-list)
priority (org-get-priority txt)) priority (org-get-priority txt))
(goto-char lspos) (goto-char lspos)