From mboxrd@z Thu Jan 1 00:00:00 1970 From: Samuel Wales Subject: Re: Update breaks custom agenda commands Date: Mon, 17 Aug 2009 19:34:28 -0700 Message-ID: <20524da70908171934o39671e72s1f1948fe4c828715@mail.gmail.com> References: <87ws53objd.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MdEWx-0002Ot-6q for emacs-orgmode@gnu.org; Mon, 17 Aug 2009 22:34:35 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MdEWr-0002Gf-UD for emacs-orgmode@gnu.org; Mon, 17 Aug 2009 22:34:33 -0400 Received: from [199.232.76.173] (port=36229 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MdEWr-0002GC-Nm for emacs-orgmode@gnu.org; Mon, 17 Aug 2009 22:34:29 -0400 Received: from mail-iw0-f185.google.com ([209.85.223.185]:51415) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MdEWr-0005bw-0a for emacs-orgmode@gnu.org; Mon, 17 Aug 2009 22:34:29 -0400 Received: by iwn15 with SMTP id 15so11073iwn.14 for ; Mon, 17 Aug 2009 19:34:28 -0700 (PDT) In-Reply-To: <87ws53objd.fsf@fastmail.fm> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Matt Lundin Cc: emacs org-mode mailing list 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 wrote: > Hi Carsten, > > The following commit causes an error when I call org-agenda: > > ,---- > | commit 8c177dc832980bd8cf23fc2ae72b18e0b472b59e > | Author: Carsten Dominik > | 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