[O] Bug: M-x org-agenda RET a RET => Lisp error: (wrong-type-argument number-or-marker-p nil) [7.9.1 (release_7.9.1-321-g9ebf47-git @ mixed installation! /usr/share/emacs/24.2.50/lisp/org/ and /home/horn/Repos/el/org-mode/lisp/)]

[Tassilo Horn]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

With org from git (commit 9ebf47afbf2b60a496a1a5393aaa7734adc4d352), I
get the error from the subject when I want to open the org agenda.

You don't need any configs to trigger the error.  Here's a minimal
recipe:

  1. emacs -Q
  2. Add this to *scratch* and evaluate it:

     (progn
       ;; adapt the path as needed
       (add-to-list 'load-path "~/Repos/el/org-mode/lisp/")
       (require 'org))

  3. M-x org-agenda RET a RET

With debug-on-error, I get the following backtrace (from uncompiled
sources for clarity, you get the same error if org is compiled):

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  1-(nil)
  (let ((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n --dotimes-limit--) 
(setq day-numbers (cons (1+ (car day-numbers)) day-numbers)) (setq n (1+ n))))
  (progn (let ((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n 
--dotimes-limit--) (setq day-numbers (cons (1+ (car day-numbers)) day-numbers)) 
(setq n (1+ n)))))
  (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays 
org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays 
(org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (if (eq ndays 
7) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote 
ifmode))) (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< 
ndays 7)) sd (let* ((nt (calendar-day-of-week ...)) (n1 
org-agenda-start-on-weekday) (d (- nt n1))) (- sd (+ (if ... 7 0) d))))) 
(day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not debug-on-error)) 
(org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file date d 
start-pos end-pos todayp clocktable-start clocktable-end filter) (setq 
org-agenda-redo-command (list (quote org-agenda-list) (list (quote quote) arg) 
start-day (list (quote quote) span))) (progn (let ((--dotimes-limit-- (1- 
ndays)) (n 0)) (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ (car 
day-numbers)) day-numbers)) (setq n (1+ n))))) (setq day-numbers (nreverse 
day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ (or 
(org-last day-numbers) 0))) (org-set-local (quote org-starting-day) (car 
day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local (quote 
org-agenda-current-span) (org-agenda-ndays-to-span span)) (if 
org-agenda-compact-blocks nil (let* ((d1 (car day-numbers)) (d2 (org-last 
day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) 
(setq s (point)) (if org-agenda-overriding-header (insert (org-add-props 
(copy-sequence org-agenda-overriding-header) nil (quote face) (quote 
org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if 
(< (- d2 d1) 350) (if (= w1 w2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" 
w1 w2)) "") ":\n"))) (add-text-properties s (1- (point)) (list (quote face) 
(quote org-agenda-structure) (quote org-date-line) t)) 
(org-agenda-mark-header-line s)) (while (setq d (car (prog1 day-numbers (setq 
day-numbers (cdr day-numbers))))) (setq date (calendar-gregorian-from-absolute 
d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) 
(setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos 
(point)))) (setq files thefiles rtnall nil) (while (setq file (car (prog1 files 
(setq files (cdr files))))) (catch (quote nextfile) (org-check-agenda-file 
file) (let ((org-agenda-entry-types org-agenda-entry-types)) (if 
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq :deadline 
org-agenda-entry-types))) (cond ((memq org-agenda-show-log-scoped ...) (setq 
rtn ...)) (org-agenda-show-log-scoped (setq rtn ...)) (t (setq rtn ...)))) 
(setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let 
((org-agenda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn 
(org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (or 
rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert 
(if (stringp org-agenda-format-date) (format-time-string org-agenda-format-date 
(org-time-from-absolute date)) (funcall org-agenda-format-date date)) "\n") 
(put-text-property s (1- (point)) (quote face) (org-agenda-get-day-face date)) 
(put-text-property s (1- (point)) (quote org-date-line) t) (put-text-property s 
(1- (point)) (quote org-agenda-date-header) t) (put-text-property s (1- 
(point)) (quote org-day-cnt) day-cnt) (if todayp (progn (put-text-property s 
(1- ...) (quote org-today) t))) (setq rtnall (org-agenda-add-time-grid-maybe 
rtnall ndays todayp)) (if rtnall (insert (org-agenda-finalize-entries rtnall) 
"\n")) (put-text-property s (1- (point)) (quote day) d) (put-text-property s 
(1- (point)) (quote org-day-cnt) day-cnt)))) (if (and 
org-agenda-clockreport-mode clocktable-start) (progn (let ((org-agenda-files 
(org-agenda-files nil (quote ifmode))) (p (copy-sequence 
org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p 
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p 
:tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (if (and 
(eq org-agenda-clockreport-mode (quote with-filter)) (setq filter (or 
org-agenda-tag-filter-while-redo ...))) (progn (setq p (plist-put p :tags 
...)))) (setq tbl (apply (quote org-get-clocktable) p)) (insert tbl)))) 
(goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) 
(if (and (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p 
(point-max))) nil (goto-char (1- (point-max))) (recenter -1) (if (not 
(pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) 
(recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) 
(point-max) (list (quote org-agenda-type) (quote agenda) (quote org-last-args) 
(list arg start-day span) (quote org-redo-cmd) org-agenda-redo-command (quote 
org-serie-cmd) org-cmd)) (if (eq org-agenda-show-log-scoped (quote clockcheck)) 
(org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only 
t) (message ""))
  (catch (quote exit) (setq org-agenda-buffer-name (or 
org-agenda-buffer-tmp-name (if org-agenda-sticky (cond ((and org-keys (stringp 
org-match)) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys 
(format "*Org Agenda(%s)*" org-keys)) (t "*Org Agenda(a)*"))) 
org-agenda-buffer-name)) (org-agenda-prepare "Day/Week") (setq start-day (or 
start-day org-agenda-start-day)) (if (stringp start-day) (setq start-day 
(time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format 
(quote agenda)) (org-set-sorting-strategy (quote agenda)) (let* ((span 
(org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) (today 
(org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span 
sd)) (org-agenda-start-on-weekday (if (eq ndays 7) 
org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil (quote ifmode))) 
(files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< ndays 7)) 
sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)) (- sd (+ ... 
d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not 
debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn 
rtnall file date d start-pos end-pos todayp clocktable-start clocktable-end 
filter) (setq org-agenda-redo-command (list (quote org-agenda-list) (list 
(quote quote) arg) start-day (list (quote quote) span))) (progn (let 
((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n --dotimes-limit--) (setq 
day-numbers (cons (1+ ...) day-numbers)) (setq n (1+ n))))) (setq day-numbers 
(nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end 
(1+ (or (org-last day-numbers) 0))) (org-set-local (quote org-starting-day) 
(car day-numbers)) (org-set-local (quote org-arg-loc) arg) (org-set-local 
(quote org-agenda-current-span) (org-agenda-ndays-to-span span)) (if 
org-agenda-compact-blocks nil (let* ((d1 (car day-numbers)) (d2 (org-last 
day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) 
(setq s (point)) (if org-agenda-overriding-header (insert (org-add-props 
(copy-sequence org-agenda-overriding-header) nil (quote face) (quote 
org-agenda-structure)) "\n") (insert (org-agenda-span-name span) "-agenda" (if 
(< ... 350) (if ... ... ...) "") ":\n"))) (add-text-properties s (1- (point)) 
(list (quote face) (quote org-agenda-structure) (quote org-date-line) t)) 
(org-agenda-mark-header-line s)) (while (setq d (car (prog1 day-numbers (setq 
day-numbers (cdr day-numbers))))) (setq date (calendar-gregorian-from-absolute 
d) s (point)) (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) 
(setq start-pos (point)) (if (and start-pos (not end-pos)) (setq end-pos 
(point)))) (setq files thefiles rtnall nil) (while (setq file (car (prog1 files 
(setq files ...)))) (catch (quote nextfile) (org-check-agenda-file file) (let 
((org-agenda-entry-types org-agenda-entry-types)) (if 
org-agenda-include-deadlines nil (setq org-agenda-entry-types ...)) (cond (... 
...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (append rtnall 
rtn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-time 
t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary date)) 
(setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-all-dates) 
(progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-date) 
(format-time-string org-agenda-format-date ...) (funcall org-agenda-format-date 
date)) "\n") (put-text-property s (1- (point)) (quote face) 
(org-agenda-get-day-face date)) (put-text-property s (1- (point)) (quote 
org-date-line) t) (put-text-property s (1- (point)) (quote 
org-agenda-date-header) t) (put-text-property s (1- (point)) (quote 
org-day-cnt) day-cnt) (if todayp (progn (put-text-property s ... ... t))) (setq 
rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (insert 
(org-agenda-finalize-entries rtnall) "\n")) (put-text-property s (1- (point)) 
(quote day) d) (put-text-property s (1- (point)) (quote org-day-cnt) 
day-cnt)))) (if (and org-agenda-clockreport-mode clocktable-start) (progn (let 
((org-agenda-files (org-agenda-files nil ...)) (p (copy-sequence 
org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p 
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p 
:tend clocktable-end)) (setq p (plist-put p :scope (quote agenda))) (if (and 
(eq org-agenda-clockreport-mode ...) (setq filter ...)) (progn (setq p ...))) 
(setq tbl (apply (quote org-get-clocktable) p)) (insert tbl)))) (goto-char 
(point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (if (and 
(pos-visible-in-window-p (point-min)) (pos-visible-in-window-p (point-max))) 
nil (goto-char (1- (point-max))) (recenter -1) (if (not 
(pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or start-pos 1)) 
(recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties (point-min) 
(point-max) (list (quote org-agenda-type) (quote agenda) (quote org-last-args) 
(list arg start-day span) (quote org-redo-cmd) org-agenda-redo-command (quote 
org-serie-cmd) org-cmd)) (if (eq org-agenda-show-log-scoped (quote clockcheck)) 
(org-agenda-show-clocking-issues)) (org-agenda-finalize) (setq buffer-read-only 
t) (message "")))
  org-agenda-list(nil)
  call-interactively(org-agenda-list)
  (cond ((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or 
(symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 
entry) org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if 
org-agenda-sticky (setq org-agenda-buffer-name (or (and ... ...) (format "*Org 
Agenda(%s)*" org-keys)))) (put (quote org-agenda-redo-command) (quote 
org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops (quote 
...))) ((eq type (quote alltodo)) (org-let lprops (quote ...))) ((eq type 
(quote search)) (org-let lprops (quote ...))) ((eq type (quote stuck)) (org-let 
lprops (quote ...))) ((eq type (quote tags)) (org-let lprops (quote ...))) ((eq 
type (quote tags-todo)) (org-let lprops (quote ...))) ((eq type (quote todo)) 
(org-let lprops (quote ...))) ((eq type (quote tags-tree)) 
(org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote 
todo-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type 
(quote occur-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) 
((functionp type) (org-let lprops (quote ...))) ((fboundp type) (org-let lprops 
(quote ...))) (t (error "Invalid custom agenda command type %s" type)))) 
(org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal org-keys "C") 
(setq org-agenda-custom-commands org-agenda-custom-commands-orig) 
(customize-variable (quote org-agenda-custom-commands))) ((equal org-keys "a") 
(call-interactively (quote org-agenda-list))) ((equal org-keys "s") 
(call-interactively (quote org-search-view))) ((equal org-keys "S") 
(org-call-with-arg (quote org-search-view) (or arg (quote (4))))) ((equal 
org-keys "t") (call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if (current-message) nil (let* (... 
...) (if note ...))))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote 
org-mode)) nil (error "This is not an Org-mode file")) (if restriction nil (put 
(quote org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg 
(quote org-timeline) arg))) ((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (error "Invalid agenda key")))
  (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands (delq nil (mapcar (function (lambda (x) (cond ... 
... ... ...))) org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn 
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(if org-agenda-overriding-restriction nil (if (and (boundp (quote 
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) 
nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq 
org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) 
(move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) 
(quote org-lprops) nil) (put (quote org-agenda-redo-command) (quote last-args) 
nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil 
(setq ans (org-agenda-get-restriction-and-command prefix-descriptions) org-keys 
(car ans) restriction (cdr ans))) (if org-agenda-sticky (setq 
org-agenda-buffer-name (format "*Org Agenda(%s)*" org-keys))) (if (and (not 
org-agenda-overriding-restriction) restriction) (progn (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction 
(quote region)) (setq org-agenda-restrict t) (move-marker 
org-agenda-restrict-begin (region-beginning)) (move-marker 
org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree)) 
(save-excursion (setq org-agenda-restrict t) (org-back-to-heading t) 
(move-marker org-agenda-restrict-begin (point)) (move-marker 
org-agenda-restrict-end (progn ...))))))) (cond ((setq entry (assoc org-keys 
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 
entry))) (progn (setq type (nth 2 entry) org-match (eval (nth 3 entry)) lprops 
(nth 4 entry)) (if org-agenda-sticky (setq org-agenda-buffer-name (or ... 
...))) (put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond 
((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq 
type ...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type 
...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops 
...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((eq type 
...) (org-check-for-org-mode) (org-let lprops ...)) ((functionp type) (org-let 
lprops ...)) ((fboundp type) (org-let lprops ...)) (t (error "Invalid custom 
agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr 
entry)))) ((equal org-keys "C") (setq org-agenda-custom-commands 
org-agenda-custom-commands-orig) (customize-variable (quote 
org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quote 
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote (4))))) ((equal org-keys "t") 
(call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if (current-message) nil (let* ... 
...)))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote org-mode)) nil 
(error "This is not an Org-mode file")) (if restriction nil (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote 
org-timeline) arg))) ((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (error "Invalid agenda key"))))
  (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup)) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands (delq nil (mapcar (function (lambda ... ...)) 
org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn 
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(if org-agenda-overriding-restriction nil (if (and (boundp (quote 
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) 
nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq 
org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) 
(move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) 
(quote org-lprops) nil) (put (quote org-agenda-redo-command) (quote last-args) 
nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil 
(setq ans (org-agenda-get-restriction-and-command prefix-descriptions) org-keys 
(car ans) restriction (cdr ans))) (if org-agenda-sticky (setq 
org-agenda-buffer-name (format "*Org Agenda(%s)*" org-keys))) (if (and (not 
org-agenda-overriding-restriction) restriction) (progn (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction 
(quote region)) (setq org-agenda-restrict t) (move-marker 
org-agenda-restrict-begin (region-beginning)) (move-marker 
org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree)) 
(save-excursion (setq org-agenda-restrict t) (org-back-to-heading t) 
(move-marker org-agenda-restrict-begin ...) (move-marker 
org-agenda-restrict-end ...)))))) (cond ((setq entry (assoc org-keys 
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 
entry))) (progn (setq type (nth 2 entry) org-match (eval ...) lprops (nth 4 
entry)) (if org-agenda-sticky (setq org-agenda-buffer-name ...)) (put (quote 
org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) (... ...) 
(... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) 
(... ... ...) (... ...) (... ...) (t ...))) (org-agenda-run-series (nth 1 
entry) (cddr entry)))) ((equal org-keys "C") (setq org-agenda-custom-commands 
org-agenda-custom-commands-orig) (customize-variable (quote 
org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quote 
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote (4))))) ((equal org-keys "t") 
(call-interactively (quote org-todo-list))) ((equal org-keys "T") 
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal 
org-keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if ... nil ...))) t t)) ((equal 
org-keys "L") (if (derived-mode-p (quote org-mode)) nil (error "This is not an 
Org-mode file")) (if restriction nil (put (quote org-agenda-files) (quote 
org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) 
((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (error "Invalid agenda key")))))
  org-agenda(nil)
  call-interactively(org-agenda record nil)
  command-execute(org-agenda record)
  execute-extended-command(nil "org-agenda")
  call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---

The bug seems to be a pretty recent regression.  I usually update my org
clone every workday, and last week it used to work.

Emacs  : GNU Emacs 24.2.50.1 (x86_64-pc-linux-gnu, GTK+ Version 3.4.4)
 of 2012-09-19 on thinkpad
Package: Org-mode version 7.9.1 (release_7.9.1-321-g9ebf47-git @ mixed 
installation! /usr/share/emacs/24.2.50/lisp/org/ and 
/home/horn/Repos/el/org-mode/lisp/)