From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Masterson Subject: Org-Agenda doesn't work Date: Fri, 11 Apr 2014 21:52:34 -0700 Message-ID: <86ppknb14d.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47560) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WYpvv-0000v8-Fh for emacs-orgmode@gnu.org; Sat, 12 Apr 2014 00:52:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WYpvp-0002sC-Ab for emacs-orgmode@gnu.org; Sat, 12 Apr 2014 00:52:51 -0400 Received: from plane.gmane.org ([80.91.229.3]:35509) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WYpvo-0002rF-OO for emacs-orgmode@gnu.org; Sat, 12 Apr 2014 00:52:45 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1WYpvn-0003ZU-Ft for emacs-orgmode@gnu.org; Sat, 12 Apr 2014 06:52:43 +0200 Received: from 71-84-12-50.dhcp.trlk.ca.charter.com ([71.84.12.50]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 12 Apr 2014 06:52:43 +0200 Received: from dsmasterson by 71-84-12-50.dhcp.trlk.ca.charter.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 12 Apr 2014 06:52:43 +0200 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 I got most of Org working again, but then the following error came up in org-agenda. I removed the ELC files to try to make the error more clear. Anyone know what the problem is? Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil) put-text-property(23003 nil org-effort "15") (save-excursion (org-back-to-heading t) (put-text-property (point-at-bol)= (outline-next-heading) tprop p)) (while (re-search-forward (concat "^[ ]*:" dprop ": +\\(.*\\)[ ]*$") ni= l t) (setq p (org-match-string-no-properties 1)) (save-excursion (org-back-= to-heading t) (put-text-property (point-at-bol) (outline-next-heading) tpro= p p))) (save-restriction (widen) (goto-char (point-min)) (while (re-search-forwa= rd (concat "^[ ]*:" dprop ": +\\(.*\\)[ ]*$") nil t) (setq p (org-match-s= tring-no-properties 1)) (save-excursion (org-back-to-heading t) (put-text-p= roperty (point-at-bol) (outline-next-heading) tprop p)))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while = (re-search-forward (concat "^[ ]*:" dprop ": +\\(.*\\)[ ]*$") nil t) (set= q p (org-match-string-no-properties 1)) (save-excursion (org-back-to-headin= g t) (put-text-property (point-at-bol) (outline-next-heading) tprop p))))) (progn (save-excursion (save-restriction (widen) (goto-char (point-min)) = (while (re-search-forward (concat "^[ ]*:" dprop ": +\\(.*\\)[ ]*$") nil = t) (setq p (org-match-string-no-properties 1)) (save-excursion (org-back-to= -heading t) (put-text-property (point-at-bol) (outline-next-heading) tprop = p)))))) (unwind-protect (progn (save-excursion (save-restriction (widen) (goto-ch= ar (point-min)) (while (re-search-forward (concat "^[ ]*:" dprop ": +\\(.*= \\)[ ]*$") nil t) (setq p (org-match-string-no-properties 1)) (save-excurs= ion (org-back-to-heading t) (put-text-property (point-at-bol) (outline-next= -heading) tprop p)))))) (if modified nil (restore-buffer-modified-p nil))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-= only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buf= fer-file-truename) (unwind-protect (progn (save-excursion (save-restriction= (widen) (goto-char (point-min)) (while (re-search-forward (concat "^[ ]*:= " dprop ": +\\(.*\\)[ ]*$") nil t) (setq p (org-match-string-no-properties= 1)) (save-excursion (org-back-to-heading t) (put-text-property ... ... tpr= op p)))))) (if modified nil (restore-buffer-modified-p nil)))) (let ((case-fold-search t) (inhibit-read-only t) p) (let* ((modified (buf= fer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modifi= cation-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unw= ind-protect (progn (save-excursion (save-restriction (widen) (goto-char (po= int-min)) (while (re-search-forward ... nil t) (setq p ...) (save-excursion= ... ...))))) (if modified nil (restore-buffer-modified-p nil))))) org-refresh-properties("Effort" org-effort) (or (memq (quote effort) org-agenda-ignore-drawer-properties) (org-refres= h-properties org-effort-property (quote org-effort))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-a= genda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (o= rg-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char (point-m= in)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (= progn (org-set-regexps-and-options)))) (or (memq (quote category) org-agend= a-ignore-drawer-properties) (org-refresh-category-properties)) (or (memq (q= uote effort) org-agenda-ignore-drawer-properties) (org-refresh-properties o= rg-effort-property (quote org-effort))) (or (memq (quote appt) org-agenda-i= gnore-drawer-properties) (org-refresh-properties "APPT_WARNTIME" (quote org= -appt-warntime))) (setq org-todo-keywords-for-agenda (append org-todo-keywo= rds-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (ap= pend org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keywor= d-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-a= list)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-draw= ers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-fo= r-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq= org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups= -alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modifie= d-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hook= s t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect= (progn (save-excursion (remove-text-properties (point-min) (point-max) pal= l) (if org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...= ))) (goto-char (point-min)) (setq re (format org-heading-keyword-regexp-for= mat org-comment-string)) (while (re-search-forward re nil t) (add-text-prop= erties (match-beginning 0) (org-end-of-subtree t) pc)))) (if modified nil (= restore-buffer-modified-p nil)))) (goto-char pos)) (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (q= uote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file = file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-rege= xps-and-options-for-tags) (setq pos (point)) (goto-char (point-min)) (let (= (case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-= set-regexps-and-options)))) (or (memq (quote category) org-agenda-ignore-dr= awer-properties) (org-refresh-category-properties)) (or (memq (quote effort= ) org-agenda-ignore-drawer-properties) (org-refresh-properties org-effort-p= roperty (quote org-effort))) (or (memq (quote appt) org-agenda-ignore-drawe= r-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warnt= ime))) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-age= nda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-do= ne-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for= -agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (set= q org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq= org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda or= g-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-gr= oups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-= agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buff= er-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deacti= vate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (sa= ve-excursion (remove-text-properties (point-min) (point-max) pall) (if org-= agenda-skip-archived-trees (progn ... ...)) (goto-char (point-min)) (setq r= e (format org-heading-keyword-regexp-format org-comment-string)) (while (re= -search-forward re nil t) (add-text-properties ... ... pc)))) (if modified = nil (restore-buffer-modified-p nil)))) (goto-char pos))) (save-restriction (while (setq file (car (prog1 files (setq files (cdr fi= les))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-= check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (wi= den) (org-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char (= point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" n= il t) (progn (org-set-regexps-and-options)))) (or (memq (quote category) or= g-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or (= memq (quote effort) org-agenda-ignore-drawer-properties) (org-refresh-prope= rties org-effort-property (quote org-effort))) (or (memq (quote appt) org-a= genda-ignore-drawer-properties) (org-refresh-properties "APPT_WARNTIME" (qu= ote org-appt-warntime))) (setq org-todo-keywords-for-agenda (append org-tod= o-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-age= nda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo= -keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-tod= o-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda o= rg-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-a= list-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tag= s (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag= -groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-= modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modificati= on-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-= protect (progn (save-excursion (remove-text-properties ... ... pall) (if or= g-agenda-skip-archived-trees ...) (goto-char ...) (setq re ...) (while ... = ...))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos))= )) (save-excursion (save-restriction (while (setq file (car (prog1 files (se= tq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-bu= ffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-bu= ffer file))) (widen) (org-set-regexps-and-options-for-tags) (setq pos (poin= t)) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward= "#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (or (memq (qu= ote category) org-agenda-ignore-drawer-properties) (org-refresh-category-pr= operties)) (or (memq (quote effort) org-agenda-ignore-drawer-properties) (o= rg-refresh-properties org-effort-property (quote org-effort))) (or (memq (q= uote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties "AP= PT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda= (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-= keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)= ) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-fo= r-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-draw= ers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (= append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (= if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist= (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((m= odified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (in= hibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-tr= uename) (unwind-protect (progn (save-excursion ... ... ... ... ...)) (if mo= dified nil (restore-buffer-modified-p nil)))) (goto-char pos))))) (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall = (quote (:org-archived t :org-comment t))) (inhibit-read-only t) (org-inhibi= t-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")= ) file re pos) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-= agenda nil) (save-excursion (save-restriction (while (setq file (car (prog1= files (setq files ...)))) (catch (quote nextfile) (if (bufferp file) (set-= buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-= buffer file))) (widen) (org-set-regexps-and-options-for-tags) (setq pos (po= int)) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forwa= rd "#+setupfile" nil t) (progn ...))) (or (memq (quote category) org-agenda= -ignore-drawer-properties) (org-refresh-category-properties)) (or (memq (qu= ote effort) org-agenda-ignore-drawer-properties) (org-refresh-properties or= g-effort-property (quote org-effort))) (or (memq (quote appt) org-agenda-ig= nore-drawer-properties) (org-refresh-properties "APPT_WARNTIME" (quote org-= appt-warntime))) (setq org-todo-keywords-for-agenda (append org-todo-keywor= ds-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (app= end org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword= -alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-al= ist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawe= rs)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for= -agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq = org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (let* ((modified= ...) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hook= s t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect= (progn ...) (if modified nil ...))) (goto-char pos))))) (setq org-todo-key= words-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-tod= o-keyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda)= )) org-agenda-prepare-buffers(("~/org/tasks.org")) (if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char (point= -max)) (if (or (bobp) org-agenda-compact-blocks (not org-agenda-block-separ= ator)) nil (insert "\n" (if (stringp org-agenda-block-separator) org-agenda= -block-separator (make-string (window-width) org-agenda-block-separator)) "= \n")) (narrow-to-region (point) (point-max))) (setq org-done-keywords-for-a= genda nil) (org-agenda-prepare-window (get-buffer-create org-agenda-buffer-= name)) (setq buffer-read-only nil) (org-agenda-reset-markers) (let ((inhibi= t-read-only t)) (erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (= current-buffer)) (setq org-agenda-contributing-files nil) (setq org-agenda-= columns-active nil) (org-agenda-prepare-buffers (org-agenda-files nil (quot= e ifmode))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywo= rds-for-agenda)) (setq org-done-keywords-for-agenda (org-uniquify org-done-= keywords-for-agenda)) (setq org-drawers-for-agenda (org-uniquify org-drawer= s-for-agenda)) (setq org-agenda-last-prefix-arg current-prefix-arg) (setq o= rg-agenda-this-buffer-name org-agenda-buffer-name) (and name (not org-agend= a-name) (org-set-local (quote org-agenda-name) name))) (if (org-agenda-use-sticky-p) (progn (org-agenda-prepare-window (get-buff= er org-agenda-buffer-name)) (message "Sticky Agenda buffer, use `r' to refr= esh") (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw (quote= exit) "Sticky Agenda buffer, use `r' to refresh")) (setq org-todo-keywords= -for-agenda nil) (setq org-drawers-for-agenda nil) (if org-agenda-persisten= t-filter nil (setq org-agenda-tag-filter nil org-agenda-category-filter nil= org-agenda-regexp-filter nil)) (put (quote org-agenda-tag-filter) :preset-= filter org-agenda-tag-filter-preset) (put (quote org-agenda-category-filter= ) :preset-filter org-agenda-category-filter-preset) (put (quote org-agenda-= regexp-filter) :preset-filter org-agenda-regexp-filter-preset) (if org-agen= da-multi (progn (setq buffer-read-only nil) (goto-char (point-max)) (if (or= (bobp) org-agenda-compact-blocks (not org-agenda-block-separator)) nil (in= sert "\n" (if (stringp org-agenda-block-separator) org-agenda-block-separat= or (make-string (window-width) org-agenda-block-separator)) "\n")) (narrow-= to-region (point) (point-max))) (setq org-done-keywords-for-agenda nil) (or= g-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)) (setq b= uffer-read-only nil) (org-agenda-reset-markers) (let ((inhibit-read-only t)= ) (erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (current-buffer= )) (setq org-agenda-contributing-files nil) (setq org-agenda-columns-active= nil) (org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (s= etq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda= )) (setq org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-a= genda)) (setq org-drawers-for-agenda (org-uniquify org-drawers-for-agenda))= (setq org-agenda-last-prefix-arg current-prefix-arg) (setq org-agenda-this= -buffer-name org-agenda-buffer-name) (and name (not org-agenda-name) (org-s= et-local (quote org-agenda-name) name))) (setq buffer-read-only nil)) org-agenda-prepare("TODO") (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (i= f (stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or = org-keys "t") org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or = org-keys "t"))))) (org-agenda-prepare "TODO") (org-compile-prefix-format (q= uote todo)) (org-set-sorting-strategy (quote todo)) (setq org-agenda-redo-c= ommand (list (quote org-todo-list) (list (quote or) (quote (and (numberp cu= rrent-prefix-arg) current-prefix-arg)) org-select-this-todo-keyword (quote = current-prefix-arg) arg))) (setq files (org-agenda-files nil (quote ifmode)= ) rtnall nil) (while (setq file (car (prog1 files (setq files (cdr files)))= )) (catch (quote nextfile) (org-check-agenda-file file) (setq rtn (org-agen= da-get-day-entries file date :todo)) (setq rtnall (append rtnall rtn)))) (i= f org-agenda-overriding-header (insert (org-add-props (copy-sequence org-ag= enda-overriding-header) nil (quote face) (quote org-agenda-structure)) "\n"= ) (insert "Global list of TODO items of type: ") (add-text-properties (poin= t-min) (1- (point)) (list (quote face) (quote org-agenda-structure) (quote = short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) = (org-agenda-mark-header-line (point-min)) (insert (org-agenda-propertize-se= lected-todo-keywords org-select-this-todo-keyword)) (setq pos (point)) (if = org-agenda-multi nil (insert "Available with `N r': (0)[ALL]") (let ((n 0) = s) (mapc (function (lambda (x) (setq s ...) (if ... ...) (insert " " s))) k= wds)) (insert "\n")) (add-text-properties pos (1- (point)) (list (quote fac= e) (quote org-agenda-structure)))) (org-agenda-mark-header-line (point-min)= ) (if rtnall (progn (insert (org-agenda-finalize-entries rtnall (quote todo= )) "\n"))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-win= dow-to-buffer)) (add-text-properties (point-min) (point-max) (list (quote o= rg-agenda-type) (quote todo) (quote org-last-args) arg (quote org-redo-cmd)= org-agenda-redo-command (quote org-series-cmd) org-cmd)) (org-agenda-final= ize) (setq buffer-read-only t)) (let* ((today (org-today)) (date (calendar-gregorian-from-absolute today)= ) (kwds org-todo-keywords-for-agenda) (completion-ignore-case t) (org-selec= t-this-todo-keyword (if (stringp arg) arg (and arg (integerp arg) (> arg 0)= (nth (1- arg) kwds)))) rtn rtnall files file pos) (if (equal arg (quote (4= ))) (progn (setq org-select-this-todo-keyword (org-icompleting-read "Keywor= d (or KWD1|K2D2|...): " (mapcar (quote list) kwds) nil nil)))) (and (equal = 0 arg) (setq org-select-this-todo-keyword nil)) (catch (quote exit) (if org= -agenda-sticky (setq org-agenda-buffer-name (if (stringp org-select-this-to= do-keyword) (format "*Org Agenda(%s:%s)*" (or org-keys "t") org-select-this= -todo-keyword) (format "*Org Agenda(%s)*" (or org-keys "t"))))) (org-agenda= -prepare "TODO") (org-compile-prefix-format (quote todo)) (org-set-sorting-= strategy (quote todo)) (setq org-agenda-redo-command (list (quote org-todo-= list) (list (quote or) (quote (and (numberp current-prefix-arg) current-pre= fix-arg)) org-select-this-todo-keyword (quote current-prefix-arg) arg))) (s= etq files (org-agenda-files nil (quote ifmode)) rtnall nil) (while (setq fi= le (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (o= rg-check-agenda-file file) (setq rtn (org-agenda-get-day-entries file date = :todo)) (setq rtnall (append rtnall rtn)))) (if org-agenda-overriding-heade= r (insert (org-add-props (copy-sequence org-agenda-overriding-header) nil (= quote face) (quote org-agenda-structure)) "\n") (insert "Global list of TOD= O items of type: ") (add-text-properties (point-min) (1- (point)) (list (qu= ote face) (quote org-agenda-structure) (quote short-heading) (concat "ToDo:= " (or org-select-this-todo-keyword "ALL")))) (org-agenda-mark-header-line = (point-min)) (insert (org-agenda-propertize-selected-todo-keywords org-sele= ct-this-todo-keyword)) (setq pos (point)) (if org-agenda-multi nil (insert = "Available with `N r': (0)[ALL]") (let ((n 0) s) (mapc (function (lambda ..= . ... ... ...)) kwds)) (insert "\n")) (add-text-properties pos (1- (point))= (list (quote face) (quote org-agenda-structure)))) (org-agenda-mark-header= -line (point-min)) (if rtnall (progn (insert (org-agenda-finalize-entries r= tnall (quote todo)) "\n"))) (goto-char (point-min)) (or org-agenda-multi (o= rg-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-ma= x) (list (quote org-agenda-type) (quote todo) (quote org-last-args) arg (qu= ote org-redo-cmd) org-agenda-redo-command (quote org-series-cmd) org-cmd)) = (org-agenda-finalize) (setq buffer-read-only t))) org-todo-list(nil) call-interactively(org-todo-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 agenda*)) (org-let lprops (quote ...))) ((eq type (quote alltod= o)) (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 (q= uote ...))) ((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 (user-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-com= mands org-agenda-custom-commands-orig) (customize-variable (quote org-agend= a-custom-commands))) ((equal org-keys "a") (call-interactively (quote org-a= genda-list))) ((equal org-keys "s") (call-interactively (quote org-search-v= iew))) ((equal org-keys "S") (org-call-with-arg (quote org-search-view) (or= arg (quote (4))))) ((equal org-keys "t") (call-interactively (quote org-to= do-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 or= g-store-agenda-views))) ((equal org-keys "?") (org-tags-view nil "+FLAGGED"= ) (org-add-hook (quote post-command-hook) (function (lambda nil (if (curren= t-message) nil (let* (... ...) (if note ...))))) t t)) ((equal org-keys "L"= ) (if (derived-mode-p (quote org-mode)) nil (user-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))) ((equa= l org-keys "#") (call-interactively (quote org-agenda-list-stuck-projects))= ) ((equal org-keys "/") (call-interactively (quote org-occur-in-agenda-file= s))) ((equal org-keys "!") (customize-variable (quote org-stuck-projects)))= (t (user-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 (current-buffer)) (move-marker org-agenda-res= trict-begin (region-beginning)) (move-marker org-agenda-restrict-end (regio= n-end))) ((eq restriction (quote subtree)) (save-excursion (setq org-agenda= -restrict (current-buffer)) (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 (o= r (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-agen= da-sticky (setq org-agenda-buffer-name (or ... ...))) (put (quote org-agend= a-redo-command) (quote org-lprops) lprops) (cond ((eq type ...) (org-let lp= rops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lpr= ops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lpro= ps ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let lprop= s ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-check-for-= org-mode) (org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (or= g-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops = ...)) ((functionp type) (org-let lprops ...)) ((fboundp type) (org-let lpro= ps ...)) (t (user-error "Invalid custom agenda command type %s" type)))) (o= rg-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal org-keys "C") (s= etq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-= variable (quote org-agenda-custom-commands))) ((equal org-keys "a") (call-i= nteractively (quote org-agenda-list))) ((equal org-keys "s") (call-interact= ively (quote org-search-view))) ((equal org-keys "S") (org-call-with-arg (q= uote org-search-view) (or arg (quote (4))))) ((equal org-keys "t") (call-in= teractively (quote org-todo-list))) ((equal org-keys "T") (org-call-with-ar= g (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") (cal= l-interactively (quote org-store-agenda-views))) ((equal org-keys "?") (org= -tags-view nil "+FLAGGED") (org-add-hook (quote post-command-hook) (functio= n (lambda nil (if (current-message) nil (let* ... ...)))) t t)) ((equal org= -keys "L") (if (derived-mode-p (quote org-mode)) nil (user-error "This is n= ot an Org-mode file")) (if restriction nil (put (quote org-agenda-files) (q= uote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg)= )) ((equal org-keys "#") (call-interactively (quote org-agenda-list-stuck-p= rojects))) ((equal org-keys "/") (call-interactively (quote org-occur-in-ag= enda-files))) ((equal org-keys "!") (customize-variable (quote org-stuck-pr= ojects))) (t (user-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 (current-buffer)) (move-marker org-agenda-re= strict-begin (region-beginning)) (move-marker org-agenda-restrict-end (regi= on-end))) ((eq restriction (quote subtree)) (save-excursion (setq org-agend= a-restrict ...) (org-back-to-heading t) (move-marker org-agenda-restrict-be= gin ...) (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 (eva= l ...) 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-ke= ys "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") (cal= l-interactively (quote org-search-view))) ((equal org-keys "S") (org-call-w= ith-arg (quote org-search-view) (or arg (quote (4))))) ((equal org-keys "t"= ) (call-interactively (quote org-todo-list))) ((equal org-keys "T") (org-ca= ll-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 (user-error "This is not an Org-mode = file")) (if restriction nil (put (quote org-agenda-files) (quote org-restri= ct) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal org-= keys "#") (call-interactively (quote org-agenda-list-stuck-projects))) ((eq= ual org-keys "/") (call-interactively (quote org-occur-in-agenda-files))) (= (equal org-keys "!") (customize-variable (quote org-stuck-projects))) (t (u= ser-error "Invalid agenda key"))))) org-agenda(nil) call-interactively(org-agenda nil nil) --=20 David Masterson