From: David Masterson <dsmasterson@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Org-Agenda doesn't work
Date: Fri, 11 Apr 2014 21:52:34 -0700 [thread overview]
Message-ID: <86ppknb14d.fsf@gmail.com> (raw)
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
next reply other threads:[~2014-04-12 4:52 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-04-12 4:52 David Masterson [this message]
2014-04-12 13:17 ` Org-Agenda doesn't work Nick Dokos
2014-04-12 13:44 ` Nick Dokos
2014-04-12 22:24 ` David Masterson
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=86ppknb14d.fsf@gmail.com \
--to=dsmasterson@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).