Fix (void-variable d) error

* lisp/org.el (org-check-before-date):
(org-check-after-date): Ensure D enters the lexical scope.

Reported-by: Eric S Fraga <e.fraga@ucl.ac.uk>
<http://permalink.gmane.org/gmane.emacs.orgmode/104842>
This commit is contained in:
Nicolas Goaziou 2016-02-06 00:19:02 +01:00
parent 3178fcb90d
commit cb05b3a3d7
1 changed files with 16 additions and 14 deletions

View File

@ -17419,14 +17419,15 @@ both scheduled and deadline timestamps."
(defun org-check-before-date (d) (defun org-check-before-date (d)
"Check if there are deadlines or scheduled entries before date D." "Check if there are deadlines or scheduled entries before date D."
(interactive (list (org-read-date))) (interactive (list (org-read-date)))
(let ((case-fold-search nil) (let* ((case-fold-search nil)
(regexp (org-re-timestamp org-ts-type)) (regexp (org-re-timestamp org-ts-type))
(ts-type org-ts-type)
(callback (callback
`(lambda () (lambda ()
(let ((match (match-string 1))) (let ((match (match-string 1)))
(and ,(if (memq org-ts-type '(active inactive all)) (and (if (memq ts-type '(active inactive all))
'(eq (org-element-type (org-element-context)) 'timestamp) (eq (org-element-type (org-element-context)) 'timestamp)
'(org-at-planning-p)) (org-at-planning-p))
(time-less-p (time-less-p
(org-time-string-to-time match) (org-time-string-to-time match)
(org-time-string-to-time d))))))) (org-time-string-to-time d)))))))
@ -17437,14 +17438,15 @@ both scheduled and deadline timestamps."
(defun org-check-after-date (d) (defun org-check-after-date (d)
"Check if there are deadlines or scheduled entries after date D." "Check if there are deadlines or scheduled entries after date D."
(interactive (list (org-read-date))) (interactive (list (org-read-date)))
(let ((case-fold-search nil) (let* ((case-fold-search nil)
(regexp (org-re-timestamp org-ts-type)) (regexp (org-re-timestamp org-ts-type))
(ts-type org-ts-type)
(callback (callback
`(lambda () (lambda ()
(let ((match (match-string 1))) (let ((match (match-string 1)))
(and ,(if (memq org-ts-type '(active inactive all)) (and (if (memq ts-type '(active inactive all))
'(eq (org-element-type (org-element-context)) 'timestamp) (eq (org-element-type (org-element-context)) 'timestamp)
'(org-at-planning-p)) (org-at-planning-p))
(not (time-less-p (not (time-less-p
(org-time-string-to-time match) (org-time-string-to-time match)
(org-time-string-to-time d)))))))) (org-time-string-to-time d))))))))