[bug] org fails in org-sparse-tree for date filtering

[bug] org fails in org-sparse-tree for date filtering

[Eric S Fraga]

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

Hello,

it's that time of year where I remove (i.e. archive) old entries in my
various agenda files.

One way I use to identify what I want to archive is to use
org-sparse-tree, selecting [b]efore-date.  If I do so, giving for
instance "1 jan 2015" as the date, I get an error with backtrace in the
attached file.

Org is up to date from git.

Thanks,
eric

-- 
: Eric S Fraga (0xFFFCF67D), Emacs 25.0.50.1, Org release_8.3.3-548-g99697a

[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 6443 bytes --]

Debugger entered--Lisp error: (void-variable d)
  (org-time-string-to-time d)
  (time-less-p (org-time-string-to-time match) (org-time-string-to-time d))
  (and (org-at-planning-p) (time-less-p (org-time-string-to-time match) (org-time-string-to-time d)))
  (let ((match (match-string 1))) (and (org-at-planning-p) (time-less-p (org-time-string-to-time match) (org-time-string-to-time d))))
  (lambda nil (let ((match (match-string 1))) (and (org-at-planning-p) (time-less-p (org-time-string-to-time match) (org-time-string-to-time d)))))()
  funcall((lambda nil (let ((match (match-string 1))) (and (org-at-planning-p) (time-less-p (org-time-string-to-time match) (org-time-string-to-time d))))))
  (progn (funcall callback))
  (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate))))
  (or (not callback) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate)))))
  (if (or (not callback) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate))))) (progn (setq cnt (1+ cnt)) (if org-highlight-sparse-tree-matches (progn (org-highlight-new-match (match-beginning 0) (match-end 0)))) (org-show-context (quote occur-tree))))
  (while (re-search-forward regexp nil t) (backward-char) (if (or (not callback) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate))))) (progn (setq cnt (1+ cnt)) (if org-highlight-sparse-tree-matches (progn (org-highlight-new-match (match-beginning 0) (match-end 0)))) (org-show-context (quote occur-tree)))))
  (save-excursion (goto-char (point-min)) (if (or (not keep-previous) (not org-occur-highlights)) (progn (org-overview))) (while (re-search-forward regexp nil t) (backward-char) (if (or (not callback) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (funcall callback)) (set-match-data save-match-data-internal (quote evaporate))))) (progn (setq cnt (1+ cnt)) (if org-highlight-sparse-tree-matches (progn (org-highlight-new-match (match-beginning 0) (match-end 0)))) (org-show-context (quote occur-tree))))))
  (let ((cnt 0)) (save-excursion (goto-char (point-min)) (if (or (not keep-previous) (not org-occur-highlights)) (progn (org-overview))) (while (re-search-forward regexp nil t) (backward-char) (if (or (not callback) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))) (progn (setq cnt (1+ cnt)) (if org-highlight-sparse-tree-matches (progn (org-highlight-new-match ... ...))) (org-show-context (quote occur-tree)))))) (if org-remove-highlights-with-change (progn (org-add-hook (quote before-change-functions) (quote org-remove-occur-highlights) nil (quote local)))) (if org-sparse-tree-open-archived-trees nil (org-hide-archived-subtrees (point-min) (point-max))) (run-hooks (quote org-occur-hook)) (if (with-no-warnings (called-interactively-p (quote interactive))) (progn (message "%d match(es) for regexp %s" cnt regexp))) cnt)
  org-occur("\\<\\(?:\\(?:DEADLINE\\|SCHEDULED\\):\\) *<\\([^>]+\\)>" nil (lambda nil (let ((match (match-string 1))) (and (org-at-planning-p) (time-less-p (org-time-string-to-time match) (org-time-string-to-time d))))))
  (message "%d entries before %s" (org-occur regexp nil callback) d)
  (let ((case-fold-search nil) (regexp (org-re-timestamp org-ts-type)) (callback (list (quote lambda) nil (list (quote let) (quote ((match ...))) (cons (quote and) (cons (if ... ... ...) (quote ...))))))) (message "%d entries before %s" (org-occur regexp nil callback) d))
  org-check-before-date("2015-01-01")
  funcall-interactively(org-check-before-date "2015-01-01")
  call-interactively(org-check-before-date)
  (cond ((eql answer (quote 99)) (org-sparse-tree arg (car (cdr (memq type (quote (nil all scheduled deadline active inactive closed))))))) ((eql answer (quote 100)) (call-interactively (quote org-check-deadlines))) ((eql answer (quote 98)) (call-interactively (quote org-check-before-date))) ((eql answer (quote 97)) (call-interactively (quote org-check-after-date))) ((eql answer (quote 68)) (call-interactively (quote org-check-dates-range))) ((eql answer (quote 116)) (call-interactively (quote org-show-todo-tree))) ((eql answer (quote 84)) (org-show-todo-tree (quote (4)))) ((eql answer (quote 109)) (call-interactively (quote org-match-sparse-tree))) ((memql answer (quote (112 80))) (let* ((kwd (completing-read "Property: " (mapcar (function list) (org-buffer-property-keys)))) (value (completing-read "Value: " (mapcar (function list) (org-property-values kwd))))) (if (string-match "\\`{.*}\\'" value) nil (setq value (concat "\"" value "\""))) (org-match-sparse-tree arg (concat kwd "=" value)))) ((memql answer (quote (114 82 47))) (call-interactively (quote org-occur))) (t (user-error "No such sparse tree command \"%c\"" answer)))
  (let ((answer (read-char-exclusive))) (cond ((eql answer (quote 99)) (org-sparse-tree arg (car (cdr (memq type (quote ...)))))) ((eql answer (quote 100)) (call-interactively (quote org-check-deadlines))) ((eql answer (quote 98)) (call-interactively (quote org-check-before-date))) ((eql answer (quote 97)) (call-interactively (quote org-check-after-date))) ((eql answer (quote 68)) (call-interactively (quote org-check-dates-range))) ((eql answer (quote 116)) (call-interactively (quote org-show-todo-tree))) ((eql answer (quote 84)) (org-show-todo-tree (quote (4)))) ((eql answer (quote 109)) (call-interactively (quote org-match-sparse-tree))) ((memql answer (quote (112 80))) (let* ((kwd (completing-read "Property: " (mapcar ... ...))) (value (completing-read "Value: " (mapcar ... ...)))) (if (string-match "\\`{.*}\\'" value) nil (setq value (concat "\"" value "\""))) (org-match-sparse-tree arg (concat kwd "=" value)))) ((memql answer (quote (114 82 47))) (call-interactively (quote org-occur))) (t (user-error "No such sparse tree command \"%c\"" answer))))
  org-sparse-tree(nil)
  funcall-interactively(org-sparse-tree nil)
  call-interactively(org-sparse-tree nil nil)
  command-execute(org-sparse-tree)

Re: [bug] org fails in org-sparse-tree for date filtering

[Nicolas Goaziou]

Hello,

Eric S Fraga <e.fraga@ucl.ac.uk> writes:

> One way I use to identify what I want to archive is to use
> org-sparse-tree, selecting [b]efore-date.  If I do so, giving for
> instance "1 jan 2015" as the date, I get an error with backtrace in the
> attached file.

Fixed. Thank you.


Regards,

-- 
Nicolas Goaziou

Re: [bug] org fails in org-sparse-tree for date filtering

[Eric S Fraga]

On Saturday,  6 Feb 2016 at 00:30, Nicolas Goaziou wrote:
> Hello,
>
> Eric S Fraga <e.fraga@ucl.ac.uk> writes:
>
>> One way I use to identify what I want to archive is to use
>> org-sparse-tree, selecting [b]efore-date.  If I do so, giving for
>> instance "1 jan 2015" as the date, I get an error with backtrace in the
>> attached file.
>
> Fixed. Thank you.

Confirmed!  Many thanks.
-- 
: Eric S Fraga (0xFFFCF67D), Emacs 25.0.50.1, Org release_8.3.3-548-g99697a