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 --]
next 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).