* Org-Agenda doesn't work
@ 2014-04-12 4:52 David Masterson
2014-04-12 13:17 ` Nick Dokos
0 siblings, 1 reply; 4+ messages in thread
From: David Masterson @ 2014-04-12 4:52 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Org-Agenda doesn't work
2014-04-12 4:52 Org-Agenda doesn't work David Masterson
@ 2014-04-12 13:17 ` Nick Dokos
2014-04-12 13:44 ` Nick Dokos
2014-04-12 22:24 ` David Masterson
0 siblings, 2 replies; 4+ messages in thread
From: Nick Dokos @ 2014-04-12 13:17 UTC (permalink / raw)
To: emacs-orgmode
David Masterson <dsmasterson@gmail.com> writes:
> 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")
> ...
> org-refresh-properties("Effort" org-effort)
> ...
> org-agenda-prepare("TODO")
> ...
> org-todo-list(nil)
> call-interactively(org-todo-list)
> ...
It's the same error that Ken Mankoff encountered:
http://thread.gmane.org/gmane.emacs.orgmode/84826
I believe there was one more instance of this but I couldn't find it
in gmane.
Try this patch:
--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org.el b/lisp/org.el
index f8615a2..bd9c05e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9393,7 +9393,7 @@ property to set."
(save-excursion
(org-back-to-heading t)
(put-text-property
- (point-at-bol) (outline-next-heading) tprop p))))))))
+ (point-at-bol) (or (outline-next-heading) (point-max)) tprop p))))))))
;;;; Link Stuff
--8<---------------cut here---------------end--------------->8---
Untested and based on some assumptionts that I have not verified: that
outline-next-heading returns a buffer position, except when there is no
next heading, in which case it returns nil. put-text-property wants
buffer positions though, so in that case we return the end-of-buffer
position.
--
Nick
^ permalink raw reply related [flat|nested] 4+ messages in thread
* Re: Org-Agenda doesn't work
2014-04-12 13:17 ` Nick Dokos
@ 2014-04-12 13:44 ` Nick Dokos
2014-04-12 22:24 ` David Masterson
1 sibling, 0 replies; 4+ messages in thread
From: Nick Dokos @ 2014-04-12 13:44 UTC (permalink / raw)
To: emacs-orgmode
Nick Dokos <ndokos@gmail.com> writes:
> David Masterson <dsmasterson@gmail.com> writes:
>
>> 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")
>> ...
>> org-refresh-properties("Effort" org-effort)
>> ...
>> org-agenda-prepare("TODO")
>> ...
>> org-todo-list(nil)
>> call-interactively(org-todo-list)
>> ...
>
> It's the same error that Ken Mankoff encountered:
>
> http://thread.gmane.org/gmane.emacs.orgmode/84826
>
> I believe there was one more instance of this but I couldn't find it
> in gmane.
>
Found it and Bastien has apparently already fixed it the bug:
http://thread.gmane.org/gmane.emacs.orgmode/84700
--
Nick
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Org-Agenda doesn't work
2014-04-12 13:17 ` Nick Dokos
2014-04-12 13:44 ` Nick Dokos
@ 2014-04-12 22:24 ` David Masterson
1 sibling, 0 replies; 4+ messages in thread
From: David Masterson @ 2014-04-12 22:24 UTC (permalink / raw)
To: emacs-orgmode
Nick Dokos <ndokos@gmail.com> writes:
> David Masterson <dsmasterson@gmail.com> writes:
>
>> 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")
>> ...
>> org-refresh-properties("Effort" org-effort)
>> ...
>> org-agenda-prepare("TODO")
>> ...
>> org-todo-list(nil)
>> call-interactively(org-todo-list)
>> ...
>
> Try this patch:
>
> diff --git a/lisp/org.el b/lisp/org.el
> index f8615a2..bd9c05e 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -9393,7 +9393,7 @@ property to set."
> (save-excursion
> (org-back-to-heading t)
> (put-text-property
> - (point-at-bol) (outline-next-heading) tprop p))))))))
> + (point-at-bol) (or (outline-next-heading) (point-max)) tprop p))))))))
>
>
> ;;;; Link Stuff
>
This works for me -- thanks.
--
David Masterson
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2014-04-12 22:25 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-04-12 4:52 Org-Agenda doesn't work David Masterson
2014-04-12 13:17 ` Nick Dokos
2014-04-12 13:44 ` Nick Dokos
2014-04-12 22:24 ` David Masterson
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).