* [bug] org fails in org-sparse-tree for date filtering
@ 2016-02-05 9:10 Eric S Fraga
2016-02-05 23:30 ` Nicolas Goaziou
0 siblings, 1 reply; 3+ messages in thread
From: Eric S Fraga @ 2016-02-05 9:10 UTC (permalink / raw)
To: emacs-orgmode
[-- 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)
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [bug] org fails in org-sparse-tree for date filtering
2016-02-05 9:10 [bug] org fails in org-sparse-tree for date filtering Eric S Fraga
@ 2016-02-05 23:30 ` Nicolas Goaziou
2016-02-06 14:04 ` Eric S Fraga
0 siblings, 1 reply; 3+ messages in thread
From: Nicolas Goaziou @ 2016-02-05 23:30 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [bug] org fails in org-sparse-tree for date filtering
2016-02-05 23:30 ` Nicolas Goaziou
@ 2016-02-06 14:04 ` Eric S Fraga
0 siblings, 0 replies; 3+ messages in thread
From: Eric S Fraga @ 2016-02-06 14:04 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2016-02-06 14:04 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2016-02-05 9:10 [bug] org fails in org-sparse-tree for date filtering Eric S Fraga
2016-02-05 23:30 ` Nicolas Goaziou
2016-02-06 14:04 ` Eric S Fraga
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).