From: Charles Philip Chan <cpchan@bell.net>
To: Org-mode <emacs-orgmode@gnu.org>
Subject: Re: Strange Problem with "org-agenda-redo"
Date: Wed, 29 Aug 2012 14:10:17 -0400 [thread overview]
Message-ID: <BLU0-SMTP65A28139AF807CA7A617F2BBA00@phx.gbl> (raw)
In-Reply-To: <877gsh4mzl.fsf@altern.org> (Bastien's message of "Wed, 29 Aug 2012 19:38:38 +0200")
[-- Attachment #1: Type: text/plain, Size: 17967 bytes --]
Bastien <bzg@altern.org> writes:
Hi Bastien:
> org-agenda.el is a maze, full of sound and fury.
>
> The various variables/situations were so entangled that the best
> was to wipe the place out a bit. I did so.
>
> Let me know if you still have this. Thanks!
I can't even go into the Agenda view now. Here is the backtrace:
,----
| Debugger entered--Lisp error: (void-variable org-agenda-overriding-cmd)
| (eq org-agenda-overriding-cmd org-cmd)
| (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments))
| (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments)))) (cond ((eq type (quote agenda)) (org-let2 gprops lprops (quote (call-interactively (quote org-agenda-list))))) ((eq type (quote alltodo)) (org-let2 gprops lprops (quote (call-interactively (quote org-todo-list))))) ((eq type (quote search)) (org-let2 gprops lprops (quote (org-search-view current-prefix-arg match nil)))) ((eq type (quote stuck)) (org-let2 gprops lprops (quote (call-interactively (quote org-agenda-list-stuck-projects))))) ((eq type (quote tags)) (org-let2 gprops lprops (quote (org-tags-view current-prefix-arg match)))) ((eq type (quote tags-todo)) (org-let2 gprops lprops (quote (org-tags-view (quote (4)) match)))) ((eq type (quote todo)) (org-let2 gprops lprops (quote (org-todo-list match)))) ((fboundp type) (org-let2 gprops lprops (quote (funcall type match)))) (t (error "Invalid type in command series"))))
| (while (setq org-cmd (pop cmds)) (setq type (car org-cmd) match (eval (nth 1 org-cmd)) lprops (nth 2 org-cmd)) (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments)))) (cond ((eq type (quote agenda)) (org-let2 gprops lprops (quote (call-interactively (quote org-agenda-list))))) ((eq type (quote alltodo)) (org-let2 gprops lprops (quote (call-interactively (quote org-todo-list))))) ((eq type (quote search)) (org-let2 gprops lprops (quote (org-search-view current-prefix-arg match nil)))) ((eq type (quote stuck)) (org-let2 gprops lprops (quote (call-interactively (quote org-agenda-list-stuck-projects))))) ((eq type (quote tags)) (org-let2 gprops lprops (quote (org-tags-view current-prefix-arg match)))) ((eq type (quote tags-todo)) (org-let2 gprops lprops (quote (org-tags-view (quote ...) match)))) ((eq type (quote todo)) (org-let2 gprops lprops (quote (org-todo-list match)))) ((fboundp type) (org-let2 gprops lprops (quote (funcall type match)))) (t (error "Invalid type in command series")))))
| (let* ((org-agenda-multi t) (redo (list (quote org-agenda-run-series) name (list (quote quote) series))) (cmds (car series)) (gprops (nth 1 series)) match org-cmd type lprops) (while (setq org-cmd (pop cmds)) (setq type (car org-cmd) match (eval (nth 1 org-cmd)) lprops (nth 2 org-cmd)) (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments)))) (cond ((eq type (quote agenda)) (org-let2 gprops lprops (quote (call-interactively ...)))) ((eq type (quote alltodo)) (org-let2 gprops lprops (quote (call-interactively ...)))) ((eq type (quote search)) (org-let2 gprops lprops (quote (org-search-view current-prefix-arg match nil)))) ((eq type (quote stuck)) (org-let2 gprops lprops (quote (call-interactively ...)))) ((eq type (quote tags)) (org-let2 gprops lprops (quote (org-tags-view current-prefix-arg match)))) ((eq type (quote tags-todo)) (org-let2 gprops lprops (quote (org-tags-view ... match)))) ((eq type (quote todo)) (org-let2 gprops lprops (quote (org-todo-list match)))) ((fboundp type) (org-let2 gprops lprops (quote (funcall type match)))) (t (error "Invalid type in command series"))))) (widen) (let ((inhibit-read-only t)) (add-text-properties (point-min) (point-max) (\` (org-serie t org-serie-redo-cmd (\, redo))))) (setq org-agenda-redo-command redo) (goto-char (point-min)))
| org-agenda-run-series("GTD: Today's Items" (((tags "UNFILED" ((org-agenda-overriding-header "Aggregated Inbox") (org-agenda-skip-entry\ \'regexp\ \"Inbox\" nil))) (tags "@WAITING" ((org-agenda-overriding-header "Wait For") (org-agenda-tags-todo-honor-ignore-options\ t nil) (org-agenda-todo-ignore-scheduled\ t nil) (org-agenda-todo-ignore-deadlines\ t nil))) (tags "STICKY|HOT" ((org-agenda-overriding-header "Sticky Notes, Tel Messages & Hot Items"))) (tags "WORK" ((org-agenda-overriding-header "Current Working Files & Notes"))) (agenda "" ((org-agenda-span (quote day)) (org-agenda-overriding-header "Today: Agenda, Scheduled Actions & Info"))) (agenda "" ((org-agenda-overriding-header "Upcoming Events (8 Days)") (org-agenda-span 8) (org-agenda-start-day "+1d"))) (todo "STARTED" ((org-agenda-overriding-header "Started Actions") (org-agenda-tags-todo-honor-ignore-options\ t nil) (org-agenda-todo-ignore-scheduled\ nil nil))) (todo "NEXT" ((org-agenda-overriding-header "Next Actions"))) (todo "PROJECT" ((org-agenda-overriding-header "Projects List"))) (stuck "" ((org-agenda-overriding-header "Stuck Projects"))) (todo "PROJDONE|DONE" ((org-agenda-overriding-header "Candidates to be Archived")))) nil ("~/Desktop/Projects/plans/Views/1_day.html")))
| (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 (stringp org-match) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (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 (org-agenda-list current-prefix-arg)))) ((eq type (quote alltodo)) (org-let lprops (quote (org-todo-list current-prefix-arg)))) ((eq type (quote search)) (org-let lprops (quote (org-search-view current-prefix-arg org-match nil)))) ((eq type (quote stuck)) (org-let lprops (quote (org-agenda-list-stuck-projects current-prefix-arg)))) ((eq type (quote tags)) (org-let lprops (quote (org-tags-view current-prefix-arg org-match)))) ((eq type (quote tags-todo)) (org-let lprops (quote (org-tags-view (quote ...) org-match)))) ((eq type (quote todo)) (org-let lprops (quote (org-todo-list org-match)))) ((eq type (quote tags-tree)) (org-check-for-org-mode) (org-let lprops (quote (org-match-sparse-tree current-prefix-arg org-match)))) ((eq type (quote todo-tree)) (org-check-for-org-mode) (org-let lprops (quote (org-occur (concat "^" org-outline-regexp "[ ]*" ... "\\>"))))) ((eq type (quote occur-tree)) (org-check-for-org-mode) (org-let lprops (quote (org-occur org-match)))) ((functionp type) (org-let lprops (quote (funcall type org-match)))) ((fboundp type) (org-let lprops (quote (funcall type org-match)))) (t (error "Invalid custom agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr entry)))
| (cond ((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if org-agenda-sticky (setq org-agenda-buffer-name (or (and ... ...) (format "*Org Agenda(%s)*" org-keys)))) (put (quote org-agenda-redo-command) (quote org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops (quote ...))) ((eq type (quote alltodo)) (org-let lprops (quote ...))) ((eq type (quote search)) (org-let lprops (quote ...))) ((eq type (quote stuck)) (org-let lprops (quote ...))) ((eq type (quote tags)) (org-let lprops (quote ...))) ((eq 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 (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) (lambda nil (unless (current-message) (let* ((m ...) (note ...)) (when note (message ...))))) t t)) ((equal org-keys "L") (unless (derived-mode-p (quote org-mode)) (error "This is not an Org-mode file")) (unless restriction (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 (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 (lambda (x) (cond (... ... nil) (... x) (... ...) (t ...))) 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) (unless org-agenda-overriding-restriction (unless (org-bound-and-true-p org-agenda-keep-restricted-file-list) (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)) (unless org-keys (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))) (when (and (not org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq org-agenda-restrict t) (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 t) (org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) (move-marker org-agenda-restrict-end (progn (org-end-of-subtree t))))))) (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-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 (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) (lambda nil (unless (current-message) (let* (... ...) (when note ...)))) t t)) ((equal org-keys "L") (unless (derived-mode-p (quote org-mode)) (error "This is not an Org-mode file")) (unless restriction (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 (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 (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) (unless org-agenda-overriding-restriction (unless (org-bound-and-true-p org-agenda-keep-restricted-file-list) (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)) (unless org-keys (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))) (when (and (not org-agenda-overriding-restriction) restriction) (put (quote org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction (quote region)) (setq org-agenda-restrict t) (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 t) (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 ...) 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) (lambda nil (unless (current-message) (let* ... ...))) t t)) ((equal org-keys "L") (unless (derived-mode-p (quote org-mode)) (error "This is not an Org-mode file")) (unless restriction (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 (error "Invalid agenda key")))))
| org-agenda(nil)
| call-interactively(org-agenda nil nil)
`----
The strange thing is I clearly can see this variable when I grep
org-agenda.el.
Thanks.
Charles
--
Why use Windows, since there is a door?
(By fachat@galileo.rhein-neckar.de, Andre Fachat)
[-- Attachment #2: Type: application/pgp-signature, Size: 197 bytes --]
next prev parent reply other threads:[~2012-08-29 18:10 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-08-25 4:01 Strange Problem with "org-agenda-redo" Charles Philip Chan
2012-08-25 6:15 ` Charles Philip Chan
2012-08-25 6:52 ` Nick Dokos
2012-08-25 7:51 ` Charles Philip Chan
2012-08-25 14:54 ` Nick Dokos
2012-08-27 16:19 ` Bastien
2012-08-27 22:01 ` Charles Philip Chan
2012-08-29 9:55 ` François Allisson
2012-08-29 10:46 ` Charles Philip Chan
2012-08-29 17:38 ` Bastien
2012-08-29 18:10 ` Charles Philip Chan [this message]
2012-08-29 18:16 ` Bastien
2012-08-29 18:33 ` Charles Philip Chan
2012-08-29 18:43 ` François Allisson
2012-08-30 5:49 ` Bastien
2012-09-04 12:45 ` François Allisson
2012-09-18 9:31 ` Bastien
2012-08-30 8:18 ` Bastien
2012-08-31 1:20 ` Charles Philip Chan
2012-08-31 5:58 ` Bastien
2012-08-31 6:27 ` Charles Philip Chan
2012-08-29 18:19 ` François Allisson
2012-08-29 18:21 ` Bastien
2012-08-29 17:36 ` Bastien
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=BLU0-SMTP65A28139AF807CA7A617F2BBA00@phx.gbl \
--to=cpchan@bell.net \
--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).