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:
parent
3178fcb90d
commit
cb05b3a3d7
22
lisp/org.el
22
lisp/org.el
|
@ -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))))))))
|
||||||
|
|
Loading…
Reference in New Issue