Re: [Orgmode] Update breaks custom agenda commands

[Samuel Wales]

Occurs here.  It seems related to setting variables in clauses.

What is the best way to revert the commit?

git revert in a local branch?

Thanks.

On 2009-08-16, Matt Lundin <address@hidden> wrote:
> Hi Carsten,
>
> The following commit causes an error when I call org-agenda:
>
> ,----
> | commit 8c177dc832980bd8cf23fc2ae72b18e0b472b59e
> | Author: Carsten Dominik <address@hidden>
> | Date:   Fri Aug 14 17:18:14 2009 +0200
> |
> |     Avoid text properties on elements in custom variables
> `----
>
> The problem does not occur when I set org-agenda-custom-commands to nil.
>
> Here are my custom command settings:
>
> --8<---------------cut here---------------start------------->8---
> (setq org-agenda-custom-commands
>       '(("p" "Printed agenda"
>        ((agenda ""
>                 ((org-agenda-ndays 7)
>                  (org-agenda-start-on-weekday nil)
>                  (org-agenda-time-grid nil)
>                  (org-agenda-repeating-timestamp-show-all t)
>                  (org-agenda-prefix-format "  -->  %t %s")
>                  (org-agenda-skip-function '(org-agenda-skip-entry-if 
> 'deadline
> 'scheduled))))
>         (agenda ""
>                 ((org-agenda-ndays 1)
>                  (org-agenda-sorting-strategy '(time-up tag-up))
>                  (org-agenda-todo-keyword-format "[ ]")
>                  (org-agenda-scheduled-leaders '("" ""))
>                  (org-agenda-skip-function '(org-agenda-skip-entry-if 
> 'deadline))
>                  (org-agenda-prefix-format "%t %T %s")
>                  ))
>         (agenda ""
>                 ((org-agenda-ndays 1)
>                  (org-deadline-warning-days 7)
>                  (org-agenda-time-grid nil)
>                  (org-agenda-include-diary nil)
>                  (org-agenda-todo-keyword-format "[ ]")
>                  (org-agenda-scheduled-leaders '("" ""))
>                  (org-agenda-overriding-header "Deadlines:")
>                  (org-agenda-skip-function '(org-agenda-skip-entry-if 
> 'notdeadline))
>                  (org-agenda-prefix-format "%t %s")))
>         (todo "TODO|STARTED|NOW"
>               ((org-agenda-sorting-strategy '(tag-up priority-down))
>                (org-agenda-todo-ignore-with-date t)))
>         (todo "WAITING"))
>        ((org-agenda-with-colors nil)
>         (org-agenda-prefix-format "%T [ ]")
>         (org-agenda-todo-keyword-format "")
>         (org-agenda-include-all-todo nil)
>         (org-agenda-block-separator "---------------\n")
>         (org-agenda-remove-tags t)
>         (ps-number-of-columns 2)
>         (ps-print-header nil)
>         (ps-landscape-mode t))
>        ("~/storage/agenda/agenda.pdf"))
>       ("q" . "Searches")
>       ("qa" "Archive files" search ""
>        ((org-agenda-files (file-expand-wildcards 
> "~/mystuff/org/.*.archive"))))
>       ("qn" "Notes files" search ""
>        ((org-agenda-files (file-expand-wildcards "~/mystuff/org/*.notes"))))
>       ("qw" "Website search" search ""
>        ((org-agenda-files (file-expand-wildcards "~/mystuff/website/*.org"))))
>       ("n" "Now"
>        ((todo "NOW|STARTED")
>         ((org-agenda-todo-ignore-with-date nil))))
>       ("h" "Habits"
>        ((agenda ""))
>        ((org-agenda-show-log t)
>         (org-agenda-include-diary nil)
>         (org-agenda-include-all-todo nil)
>         (org-agenda-ndays 1)
>         (org-agenda-start-on-weekday nil)
>         (org-agenda-log-mode-items '(state))
>         (org-agenda-time-grid nil)
>         (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp
> ":DAILY:"))))
> ;; Today - daily tasks view
>       ("d" "Today"
>        ((agenda "" ((org-agenda-ndays 1)
>                     (org-agenda-include-all-todo nil)
>                     ))
>         (alltodo "" ((org-agenda-sorting-strategy '(todo-state-up))
>                      (org-agenda-todo-ignore-with-date t)))))
>       ("y" "Projects"
>        ((agenda "" ((org-agenda-skip-function '(org-agenda-skip-entry-if
> 'notregexp "* PROJECT")))
>                 ((org-agenda-include-diary nil)
>                  (org-agenda-include-all-todo nil)
>                  (org-agenda-time-grid nil)))
>         (todo "PROJECT" ((org-agenda-todo-ignore-deadlines-t)
>                          (org-agenda-sorting-strategy '(priority-down))))))
>       ("R" "Review"
>          ((stuck "")
>         (agenda ""
>                 ((org-agenda-skip-function '(org-agenda-skip-entry-if 
> 'notdeadline))))
>         (agenda ""
>               ((org-agenda-ndays 1)
>                (org-agenda-skip-function '(org-agenda-skip-entry-if 
> 'deadline))))
>         (todo "PROJECT" ((org-agenda-sorting-strategy '(todo-state-down
> priority-down))))
>         (todo "NOW|STARTED|TODO" ((org-agenda-sorting-strategy 
> '(todo-state-down
> priority-down))))
>         (todo "WAITING")
>         (todo "MAYBE"))
>        ((org-agenda-todo-ignore-with-date t)
>         (org-agenda-todo-ignore-deadlines t)
>         (org-agenda-time-grid nil)
>         (org-agenda-include-all-todo nil)
>         (org-deadline-warning-days 360)))
>       ("c" "Schedule" agenda ""
>        ((org-agenda-ndays 7)
>         (org-agenda-start-on-weekday 1)
>         (org-agenda-time-grid nil)
>         (org-agenda-prefix-format " %12:t ")
>         (org-agenda-include-all-todo nil)
>         (org-agenda-repeating-timestamp-show-all t)
>         (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
> 'scheduled))))
>       ("u" "Upcoming deadlines (6 months)" agenda ""
>        ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notdeadline))
>         (org-agenda-ndays 1)
>         (org-agenda-include-all-todo nil)
>         (org-deadline-warning-days 180)
>         (org-agenda-time-grid nil)))
> ))
> --8<---------------cut here---------------end--------------->8---
>
> And attached is the backtrace.
>
>


-- 
Myalgic encephalomyelitis causes death (Jason et al. 2006)
and severe suffering.  Conflicts of interest are destroying
research. What people "know" is wrong. Silence = death.
http://www.meactionuk.org.uk/What_Is_ME_What_Is_CFS.htm