From a03cd64994b88913c56ae8534d4b5479ef852809 Mon Sep 17 00:00:00 2001 From: Bastien Date: Mon, 17 Aug 2015 20:42:50 +0200 Subject: [PATCH] Fix c6d9a4ec * org.el (org-check-before-date, org-check-after-date): Save match data. --- lisp/org.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 367d7e1ed..e8b78a3fb 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -17485,12 +17485,13 @@ both scheduled and deadline timestamps." (regexp (org-re-timestamp org-ts-type)) (callback `(lambda () - (and ,(if (memq org-ts-type '(active inactive all)) - '(eq (org-element-type (org-element-context)) 'timestamp) - '(org-at-planning-p)) - (time-less-p - (org-time-string-to-time (match-string 1)) - (org-time-string-to-time date)))))) + (let ((match (match-string 1))) + (and ,(if (memq org-ts-type '(active inactive all)) + '(eq (org-element-type (org-element-context)) 'timestamp) + '(org-at-planning-p)) + (time-less-p + (org-time-string-to-time match) + (org-time-string-to-time date))))))) (message "%d entries before %s" (org-occur regexp nil callback) date))) @@ -17501,12 +17502,13 @@ both scheduled and deadline timestamps." (regexp (org-re-timestamp org-ts-type)) (callback `(lambda () - (and ,(if (memq org-ts-type '(active inactive all)) - '(eq (org-element-type (org-element-context)) 'timestamp) - '(org-at-planning-p)) - (not (time-less-p - (org-time-string-to-time (match-string 1)) - (org-time-string-to-time date))))))) + (let ((match (match-string 1))) + (and ,(if (memq org-ts-type '(active inactive all)) + '(eq (org-element-type (org-element-context)) 'timestamp) + '(org-at-planning-p)) + (not (time-less-p + (org-time-string-to-time match) + (org-time-string-to-time date)))))))) (message "%d entries after %s" (org-occur regexp nil callback) date))) -- 2.11.4.GIT