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 <m...@imapmail.org> wrote: > Hi Carsten, > > The following commit causes an error when I call org-agenda: > > ,---- > | commit 8c177dc832980bd8cf23fc2ae72b18e0b472b59e > | Author: Carsten Dominik <carsten.domi...@gmail.com> > | 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 _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode