(void-variable timestamp-up) when building an agenda buffer

[alan . schmitt]

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)

signature.asc
Description: PGP signature