From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tassilo Horn Subject: 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 Message-ID: <87y5jzctus.fsf@thinkpad.tsdh.de> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:40327) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TGAlp-0007BZ-PR for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 11:40:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TGAlc-0001fQ-Ch for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 11:40:29 -0400 Received: from deliver.uni-koblenz.de ([141.26.64.15]:58080) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TGAlb-0001dj-TK for emacs-orgmode@gnu.org; Mon, 24 Sep 2012 11:40:16 -0400 Received: from localhost (localhost [127.0.0.1]) by deliver.uni-koblenz.de (Postfix) with ESMTP id DCAB31A4056 for ; Mon, 24 Sep 2012 17:40:14 +0200 (CEST) Received: from deliver.uni-koblenz.de ([127.0.0.1]) by localhost (deliver.uni-koblenz.de [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 4-1ujs3a92OH for ; Mon, 24 Sep 2012 17:40:13 +0200 (CEST) Received: from thinkpad.tsdh.de (tsdh.uni-koblenz.de [141.26.67.142]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by deliver.uni-koblenz.de (Postfix) with ESMTPSA id 03C651A4046 for ; Mon, 24 Sep 2012 17:40:12 +0200 (CEST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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-agen= da-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-week= day) (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 to= dayp clocktable-start clocktable-end filter) (setq org-agenda-redo-command = (list (quote org-agenda-list) (list (quote quote) arg) start-day (list (quo= te 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)) (se= tq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last day-= numbers) 0))) (org-set-local (quote org-starting-day) (car day-numbers)) (o= rg-set-local (quote org-arg-loc) arg) (org-set-local (quote org-agenda-curr= ent-span) (org-agenda-ndays-to-span span)) (if org-agenda-compact-blocks ni= l (let* ((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 (org-days-t= o-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s (point)) (if org-ag= enda-overriding-header (insert (org-add-props (copy-sequence org-agenda-ove= rriding-header) nil (quote face) (quote org-agenda-structure)) "\n") (inser= t (org-agenda-span-name span) "-agenda" (if (< (- d2 d1) 350) (if (=3D w1 w= 2) (format " (W%02d)" w1) (format " (W%02d-W%02d)" w1 w2)) "") ":\n"))) (ad= d-text-properties s (1- (point)) (list (quote face) (quote org-agenda-struc= ture) (quote org-date-line) t)) (org-agenda-mark-header-line s)) (while (se= tq d (car (prog1 day-numbers (setq day-numbers (cdr day-numbers))))) (setq = date (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= =3D d today)) (and (not start-pos) (=3D d sd))) (setq start-pos (point)) (i= f (and start-pos (not end-pos)) (setq end-pos (point)))) (setq files thefil= es 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-lo= g-scoped (setq rtn ...)) (t (setq rtn ...)))) (setq rtnall (append rtnall r= tn)))) (if org-agenda-include-diary (let ((org-agenda-search-headline-for-t= ime t)) (require (quote diary-lib)) (setq rtn (org-get-entries-from-diary d= ate)) (setq rtnall (append rtnall rtn)))) (if (or rtnall org-agenda-show-al= l-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-abs= olute date)) (funcall org-agenda-format-date date)) "\n") (put-text-propert= y s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-pro= perty s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (poi= nt)) (quote org-agenda-date-header) t) (put-text-property s (1- (point)) (q= uote 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 cl= ocktable-start)) (setq p (plist-put p :tend clocktable-end)) (setq p (plist= -put p :scope (quote agenda))) (if (and (eq org-agenda-clockreport-mode (qu= ote with-filter)) (setq filter (or org-agenda-tag-filter-while-redo ...))) = (progn (setq p (plist-put p :tags ...)))) (setq tbl (apply (quote org-get-c= locktable) p)) (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi= (org-agenda-fit-window-to-buffer)) (if (and (pos-visible-in-window-p (poin= t-min)) (pos-visible-in-window-p (point-max))) nil (goto-char (1- (point-ma= x))) (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (pr= ogn (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-typ= e) (quote agenda) (quote org-last-args) (list arg start-day span) (quote or= g-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-i= ssues)) (org-agenda-finalize) (setq buffer-read-only t) (message "")) (catch (quote exit) (setq org-agenda-buffer-name (or org-agenda-buffer-tm= p-name (if org-agenda-sticky (cond ((and org-keys (stringp org-match)) (for= mat "*Org Agenda(%s:%s)*" org-keys org-match)) (org-keys (format "*Org Agen= da(%s)*" org-keys)) (t "*Org Agenda(a)*"))) org-agenda-buffer-name)) (org-a= genda-prepare "Day/Week") (setq start-day (or start-day org-agenda-start-da= y)) (if (stringp start-day) (setq start-day (time-to-days (org-read-date ni= l t start-day)))) (org-compile-prefix-format (quote agenda)) (org-set-sorti= ng-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-wee= kday (if (eq ndays 7) org-agenda-start-on-weekday)) (thefiles (org-agenda-f= iles nil (quote ifmode))) (files thefiles) (start (if (or (null org-agenda-= start-on-weekday) (< ndays 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-w= eekday) (d ...)) (- sd (+ ... d))))) (day-numbers (list start)) (day-cnt 0)= (inhibit-redisplay (not debug-on-error)) (org-agenda-show-log-scoped org-a= genda-show-log) s e rtn rtnall file date d start-pos end-pos todayp clockta= ble-start clocktable-end filter) (setq org-agenda-redo-command (list (quote= org-agenda-list) (list (quote quote) arg) start-day (list (quote quote) sp= an))) (progn (let ((--dotimes-limit-- (1- ndays)) (n 0)) (while (< n --doti= mes-limit--) (setq day-numbers (cons (1+ ...) day-numbers)) (setq n (1+ n))= ))) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car d= ay-numbers) clocktable-end (1+ (or (org-last day-numbers) 0))) (org-set-loc= al (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-ar= g-loc) arg) (org-set-local (quote org-agenda-current-span) (org-agenda-nday= s-to-span span)) (if org-agenda-compact-blocks nil (let* ((d1 (car day-numb= ers)) (d2 (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-d= ays-to-iso-week d2))) (setq s (point)) (if org-agenda-overriding-header (in= sert (org-add-props (copy-sequence org-agenda-overriding-header) nil (quote= face) (quote org-agenda-structure)) "\n") (insert (org-agenda-span-name sp= an) "-agenda" (if (< ... 350) (if ... ... ...) "") ":\n"))) (add-text-prope= rties 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 (p= rog1 day-numbers (setq day-numbers (cdr day-numbers))))) (setq date (calend= ar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (=3D d today)= ) (and (not start-pos) (=3D d sd))) (setq start-pos (point)) (if (and start= -pos (not end-pos)) (setq end-pos (point)))) (setq files thefiles rtnall ni= l) (while (setq file (car (prog1 files (setq files ...)))) (catch (quote ne= xtfile) (org-check-agenda-file file) (let ((org-agenda-entry-types org-agen= da-entry-types)) (if org-agenda-include-deadlines nil (setq org-agenda-entr= y-types ...)) (cond (... ...) (org-agenda-show-log-scoped ...) (t ...))) (s= etq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (let ((org-a= genda-search-headline-for-time t)) (require (quote diary-lib)) (setq rtn (o= rg-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))) (if (o= r rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (ins= ert (if (stringp org-agenda-format-date) (format-time-string org-agenda-for= mat-date ...) (funcall org-agenda-format-date date)) "\n") (put-text-proper= ty s (1- (point)) (quote face) (org-agenda-get-day-face date)) (put-text-pr= operty s (1- (point)) (quote org-date-line) t) (put-text-property s (1- (po= int)) (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-prope= rty 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-st= art) (progn (let ((org-agenda-files (org-agenda-files nil ...)) (p (copy-se= quence org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-del= ete p :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (pli= st-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-b= uffer)) (if (and (pos-visible-in-window-p (point-min)) (pos-visible-in-wind= ow-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 (poi= nt-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 typ= e (quote tags-todo)) (org-let lprops (quote ...))) ((eq type (quote todo)) = (org-let lprops (quote ...))) ((eq type (quote tags-tree)) (org-check-for-o= rg-mode) (org-let lprops (quote ...))) ((eq type (quote todo-tree)) (org-ch= eck-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-ru= n-series (nth 1 entry) (cddr entry)))) ((equal org-keys "C") (setq org-agen= da-custom-commands org-agenda-custom-commands-orig) (customize-variable (qu= ote 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-sea= rch-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-interactivel= y (quote org-tags-view))) ((equal org-keys "M") (org-call-with-arg (quote o= rg-tags-view) (or arg (quote (4))))) ((equal org-keys "e") (call-interactiv= ely (quote org-store-agenda-views))) ((equal org-keys "?") (org-tags-view n= il "+FLAGGED") (org-add-hook (quote post-command-hook) (function (lambda ni= l (if (current-message) nil (let* (... ...) (if note ...))))) t t)) ((equal= org-keys "L") (if (derived-mode-p (quote org-mode)) nil (error "This is no= t an Org-mode file")) (if restriction nil (put (quote org-agenda-files) (qu= ote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))= ) ((equal org-keys "#") (call-interactively (quote org-agenda-list-stuck-pr= ojects))) ((equal org-keys "/") (call-interactively (quote org-occur-in-age= nda-files))) ((equal org-keys "!") (customize-variable (quote org-stuck-pro= jects))) (t (error "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-buffer-name org-agenda-buffe= r-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-cust= om-commands))) (org-agenda-custom-commands (org-contextualize-keys org-agen= da-custom-commands org-agenda-custom-commands-contexts)) (buf (current-buff= er)) (bfn (buffer-file-name (buffer-base-buffer))) entry key type org-match= lprops ans) (if org-agenda-overriding-restriction nil (if (and (boundp (qu= ote org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-= list) nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq or= g-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-ma= rker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (qu= ote 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 regio= n)) (setq org-agenda-restrict t) (move-marker org-agenda-restrict-begin (re= gion-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq r= estriction (quote subtree)) (save-excursion (setq org-agenda-restrict t) (o= rg-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)) (fun= ctionp (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-buf= fer-name (or ... ...))) (put (quote org-agenda-redo-command) (quote org-lpr= ops) 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-l= et lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-ch= eck-for-org-mode) (org-let lprops ...)) ((eq type ...) (org-check-for-org-m= ode) (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) (customi= ze-variable (quote org-agenda-custom-commands))) ((equal org-keys "a") (cal= l-interactively (quote org-agenda-list))) ((equal org-keys "s") (call-inter= actively (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") (ca= ll-interactively (quote org-tags-view))) ((equal org-keys "M") (org-call-wi= th-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) (func= tion (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) (quo= te org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg)))= ((equal org-keys "#") (call-interactively (quote org-agenda-list-stuck-pro= jects))) ((equal org-keys "/") (call-interactively (quote org-occur-in-agen= da-files))) ((equal org-keys "!") (customize-variable (quote org-stuck-proj= ects))) (t (error "Invalid agenda key")))) (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-n= ame org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-nam= e) org-agenda-buffer-name) (quote current-window) org-agenda-window-setup))= (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-c= ustom-commands (delq nil (mapcar (function (lambda ... ...)) org-agenda-cus= tom-commands))) (org-agenda-custom-commands (org-contextualize-keys org-age= nda-custom-commands org-agenda-custom-commands-contexts)) (buf (current-buf= fer)) (bfn (buffer-file-name (buffer-base-buffer))) entry key type org-matc= h lprops ans) (if org-agenda-overriding-restriction nil (if (and (boundp (q= uote org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file= -list) nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq o= rg-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-m= arker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (q= uote 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 or= g-agenda-overriding-restriction) restriction) (progn (put (quote org-agenda= -files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote regi= on)) (setq org-agenda-restrict t) (move-marker org-agenda-restrict-begin (r= egion-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-ma= rker org-agenda-restrict-end ...)))))) (cond ((setq entry (assoc org-keys o= rg-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth= 2 entry))) (progn (setq type (nth 2 entry) org-match (eval ...) lprops (nt= h 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-ser= ies (nth 1 entry) (cddr entry)))) ((equal org-keys "C") (setq org-agenda-cu= stom-commands org-agenda-custom-commands-orig) (customize-variable (quote o= rg-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quo= te org-agenda-list))) ((equal org-keys "s") (call-interactively (quote org-= search-view))) ((equal org-keys "S") (org-call-with-arg (quote org-search-v= iew) (or arg (quote (4))))) ((equal org-keys "t") (call-interactively (quot= e 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 (qu= ote org-tags-view))) ((equal org-keys "M") (org-call-with-arg (quote org-ta= gs-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-a= rg (quote org-timeline) arg))) ((equal org-keys "#") (call-interactively (q= uote org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interact= ively (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 inst= allation! /usr/share/emacs/24.2.50/lisp/org/ and /home/horn/Repos/el/org-mo= de/lisp/)