[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Org-Agenda doesn't work
From: |
David Masterson |
Subject: |
[O] Org-Agenda doesn't work |
Date: |
Fri, 11 Apr 2014 21:52:34 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (cygwin) |
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 ": +\\(.*\\)[
]*$") 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)))
(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))))
(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)))))
(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-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)))))) (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
buffer-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 ... ... tprop p)))))) (if modified nil
(restore-buffer-modified-p nil))))
(let ((case-fold-search t) (inhibit-read-only t) p) (let* ((modified
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion (save-restriction
(widen) (goto-char (point-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-refresh-properties org-effort-property (quote org-effort)))
(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 (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-drawer-properties) (org-refresh-category-properties)) (or
(memq (quote effort) org-agenda-ignore-drawer-properties)
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties
"APPT_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-for-agenda org-todo-key-alist)) (setq
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
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-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion
(remove-text-properties (point-min) (point-max) pall) (if
org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...)))
(goto-char (point-min)) (setq re (format org-heading-keyword-regexp-format
org-comment-string)) (while (re-search-forward re nil t) (add-text-properties
(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 (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 (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-drawer-properties) (org-refresh-category-properties)) (or
(memq (quote effort) org-agenda-ignore-drawer-properties)
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties
"APPT_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-for-agenda org-todo-key-alist)) (setq
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
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-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion
(remove-text-properties (point-min) (point-max) pall) (if
org-agenda-skip-archived-trees (progn ... ...)) (goto-char (point-min)) (setq
re (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
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 (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-drawer-properties) (org-refresh-category-properties)) (or
(memq (quote effort) org-agenda-ignore-drawer-properties)
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties
"APPT_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-for-agenda org-todo-key-alist)) (setq
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
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-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion
(remove-text-properties ... ... pall) (if org-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 (setq
files (cdr 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 (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-drawer-properties)
(org-refresh-category-properties)) (or (memq (quote effort)
org-agenda-ignore-drawer-properties) (org-refresh-properties
org-effort-property (quote org-effort))) (or (memq (quote appt)
org-agenda-ignore-drawer-properties) (org-refresh-properties "APPT_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-for-agenda org-todo-key-alist)) (setq
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
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-modified-p)) (buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ... ...
...)) (if modified 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-inhibit-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 (point)) (goto-char
(point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil
t) (progn ...))) (or (memq (quote category)
org-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or
(memq (quote effort) org-agenda-ignore-drawer-properties)
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties
"APPT_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-for-agenda org-todo-key-alist)) (setq
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
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-hooks t)
deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn
...) (if modified nil ...))) (goto-char pos))))) (setq
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-todo-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-separator)) 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-agenda nil)
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)) (setq
buffer-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))) (setq
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (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-set-local (quote org-agenda-name) name)))
(if (org-agenda-use-sticky-p) (progn (org-agenda-prepare-window (get-buffer
org-agenda-buffer-name)) (message "Sticky Agenda buffer, use `r' to refresh")
(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-persistent-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-agenda-multi (progn (setq
buffer-read-only nil) (goto-char (point-max)) (if (or (bobp)
org-agenda-compact-blocks (not org-agenda-block-separator)) 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-agenda nil)
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)) (setq
buffer-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))) (setq
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (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-set-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 (if
(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 (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-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-agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall
rtn)))) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure))
"\n") (insert "Global list of TODO items of type: ") (add-text-properties
(point-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-selected-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))) 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 rtnall
(quote todo)) "\n"))) (goto-char (point-min)) (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max)
(list (quote org-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-finalize) (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-select-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 "Keyword
(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-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 (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-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-agenda-get-day-entries
file date :todo)) (setq rtnall (append rtnall rtn)))) (if
org-agenda-overriding-header (insert (org-add-props (copy-sequence
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure))
"\n") (insert "Global list of TODO items of type: ") (add-text-properties
(point-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-selected-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 ... ... ... ...)) 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 rtnall (quote todo)) "\n")))
(goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer))
(add-text-properties (point-min) (point-max) (list (quote org-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-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 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 (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-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 (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))) ((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 (user-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 (current-buffer)) (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 (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 (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-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 (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-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
(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))) ((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 (user-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 (current-buffer)) (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 ...) (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 (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)))
((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 (user-error "Invalid agenda key")))))
org-agenda(nil)
call-interactively(org-agenda nil nil)
--
David Masterson
- [O] Org-Agenda doesn't work,
David Masterson <=