[O] [PATCH] Remove obsolete functionality to add todo list in front of agenda

[Bernt Hansen]

* lisp/org-agenda.el: Remove obsolete code for adding todo list in front
of the agenda

Todo lists should be built with the TODO list or a block agenda instead.

This code was triggered for C-u R in block agendas which is used to
limit the clock report to the current tags filter applied to the
agenda.
---

This patch seems to fix the problem for me but I'm not sure if it has
any other ill side-effects.  I initially just did a (setq include-all
nil) but that clobbered the prefix if any for the agenda call.

Please review this before applying.

This commit is available at git://git.norang.ca/org-mode.git 
fix-agenda-clock-report-with-prefix

Thanks,
Bernt

 lisp/org-agenda.el |   23 -----------------------
 1 files changed, 0 insertions(+), 23 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 1f046f2..d7c35d1 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3457,11 +3457,6 @@ the daily/weekly agenda, see 
`org-agenda-skip-function'.")
 The view will be for the current day or week, but from the overview buffer
 you will be able to go to other days/weeks.
 
-With one \\[universal-argument] prefix argument INCLUDE-ALL,
-all unfinished TODO items will also be shown, before the agenda.
-This feature is considered obsolete, please use the TODO list or a block
-agenda instead.
-
 With a numeric prefix argument in an interactive call, the agenda will
 span INCLUDE-ALL days.  Lisp programs should instead specify SPAN to change
 the number of days.  SPAN defaults to `org-agenda-span'.
@@ -3516,24 +3511,6 @@ given in `org-agenda-start-on-weekday'."
     (org-set-local 'org-starting-day (car day-numbers))
     (org-set-local 'org-include-all-loc include-all)
     (org-set-local 'org-agenda-current-span (org-agenda-ndays-to-span span))
-    (when (and (or include-all org-agenda-include-all-todo)
-              (member today day-numbers))
-      (setq files thefiles
-           rtnall nil)
-      (while (setq file (pop files))
-       (catch 'nextfile
-         (org-check-agenda-file file)
-         (setq date (calendar-gregorian-from-absolute today)
-               rtn (org-agenda-get-day-entries
-                    file date :todo))
-         (setq rtnall (append rtnall rtn))))
-      (when rtnall
-       (insert "All currently open TODO items:\n")
-       (add-text-properties (point-min) (1- (point))
-                            (list 'face 'org-agenda-structure
-                                  'short-heading "All TODO items"))
-       (org-agenda-mark-header-line (point-min))
-       (insert (org-finalize-agenda-entries rtnall) "\n")))
     (unless org-agenda-compact-blocks
       (let* ((d1 (car day-numbers))
             (d2 (org-last day-numbers))
-- 
1.7.5.rc0.100.gcb35c0