[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Bug: M-x org-agenda RET a RET => Lisp error: (wrong-type-argument nu
From: |
Tassilo Horn |
Subject: |
[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/)] |
Date: |
Mon, 24 Sep 2012 17:40:11 +0200 |
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.50 (gnu/linux) |
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/)
- [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 <=