emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: alan.schmitt@polytechnique.org
To: "emacs-orgmode" <emacs-orgmode@gnu.org>
Subject: (void-variable timestamp-up) when building an agenda buffer
Date: Tue, 11 May 2021 09:38:14 +0200	[thread overview]
Message-ID: <87y2clk9eh.fsf@m4x.org> (raw)

[-- Attachment #1: Type: text/plain, Size: 7417 bytes --]

Hello,

After a recent update, I no longer can build an agenda buffer. I put the
backtrace that I get at the end of this message. On the top of the trace
there is a call to org-entries-lessp, which looks like this:

(defun org-entries-lessp (a b)
  "Predicate for sorting agenda entries."
  ;; The following variables will be used when the form is evaluated.
  ;; So even though the compiler complains, keep them.
  (let ((ss org-agenda-sorting-strategy-selected))
    (org-dlet
	((timestamp-up    (and (org-em 'timestamp-up 'timestamp-down ss)
			       (org-cmp-ts a b "")))

Did something change recently around this code?

Thanks,

Alan

Debugger entered--Lisp error: (void-variable timestamp-up)
  org-entries-lessp(#("  Mobile:     TODO 2..." 0 14 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 14 18 (org-heading t fontified t face org-todo org-category "Mobile" tags ... org-priority-highest 65 org-priority-lowest 67 time-of-day nil duration nil breadcrumbs nil ...) 18 19 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 19 30 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 30 55 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 55 61 (type "tagsmatch" priority 1000 ts-date nil todo-state "TODO" org-hd-marker #<marker (moves after insertion) at 635 in mobile.org> org-marker #<marker (moves after insertion) at 635 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) ...) #("  Mobile:     Au rez..." 0 14 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 14 165 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 165 167 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 167 173 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...) 173 175 (type "tagsmatch" priority 1000 ts-date nil todo-state nil org-hd-marker #<marker (moves after insertion) at 481 in mobile.org> org-marker #<marker (moves after insertion) at 481 in mobile.org> help-echo "mouse-2 or RET jump ..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(CANC..." org-todo-regexp "\\(CANCELLED\\|DONE\\|H..." org-not-done-regexp "\\(HOLD\\|NEXT\\|TODO\\|..." ...)))
  sort((... ... ...) org-entries-lessp)
  org-agenda-finalize-entries((... ... ... ... ... ...) tags)
  org-tags-view(nil "REFILE")
  #f(compiled-function () #<bytecode 0x1589f0aa081d>)()
  funcall(#f(compiled-function () #<bytecode 0x1589f0aa081d>))
  (let ((org-agenda-overriding-header '"Tasks to Refile")) (funcall '#f(compiled-function () #<bytecode 0x1589f0aa081d>)))
  eval((let ((org-agenda-overriding-header '"Tasks to Refile")) (funcall '#f(compiled-function () #<bytecode 0x1589f0aa081d>))))
  org-agenda-run-series("daily review" (((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile"))) (tags-todo "-CANCELLED-@maybe/!-HOLD" ((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function 'bh/skip-non-stuck-projects))) (agenda "" ((org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) (org-agenda-span 'day) (org-agenda-overriding-header "Today"))) (agenda "" ((org-agenda-skip-scheduled-if-deadline-is-shown t) (org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) (org-agenda-span 6) (org-agenda-start-day "+1d") (org-agenda-overriding-header "Upcoming events"))) (tags-todo "-CANCELLED-@maybe-HOLD/!-HOLD-WAITING" ((org-agenda-overriding-header "Next Tasks") (org-agenda-skip-function 'bh/skip-project-habits-single-blocked-scheduled) (org-agenda-sorting-strategy '(todo-state-down effort-up category-keep)))) (tags-todo "-CANCELLED-@maybe-HOLD/!-HOLD-WAITING-REFILE" ((org-agenda-overriding-header "Tasks") (org-agenda-skip-function 'bh/skip-project-tasks-maybe) (org-agenda-todo-ignore-scheduled 'all) (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!-HOLD" ((org-agenda-overriding-header "Projects") (org-agenda-skip-function 'as/skip-non-projects) (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!+HOLD" ((org-agenda-overriding-header "Projects and Tasks On Hold") (org-agenda-sorting-strategy '(category-keep)))) (tags-todo "-CANCELLED-@maybe/!+WAITING" ((org-agenda-overriding-header "Waiting and Postponed Tasks") (org-agenda-skip-function 'bh/skip-stuck-projects) (org-agenda-todo-ignore-scheduled 'future))) (tags "-REFILE-@maybe/" ((org-agenda-overriding-header "Tasks to Archive") (org-agenda-skip-function 'bh/skip-non-archivable-tasks)))) nil))
  org-agenda(nil)
  funcall-interactively(org-agenda nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 528 bytes --]

             reply	other threads:[~2021-05-11  7:44 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-05-11  7:38 alan.schmitt [this message]
2021-05-11  7:53 ` (void-variable timestamp-up) when building an agenda buffer Alan Schmitt
2021-05-11  9:06   ` Tim Cross
2021-05-11 10:21     ` Alan Schmitt
2021-05-11  9:28   ` Alan Schmitt

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=87y2clk9eh.fsf@m4x.org \
    --to=alan.schmitt@polytechnique.org \
    --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).