diff options
author | Christian Egli <christian.egli@alumni.ethz.ch> | 2013-04-30 15:50:07 +0200 |
---|---|---|
committer | Christian Egli <christian.egli@alumni.ethz.ch> | 2013-04-30 15:50:07 +0200 |
commit | 7132081e92aced737c3c05c0b305c636ec17575c (patch) | |
tree | 47e7ab4c9c4da49ca5449ee79b7816dfe051b332 | |
parent | d109e4d83c47aa27ddebf33403203ce0bca93c12 (diff) | |
download | org-mode-7132081e92aced737c3c05c0b305c636ec17575c.tar.gz |
ox-taskjuggler.el: Fix a typo in org-taskjuggler-get-start
* ox-taskjuggler.el (org-taskjuggler-get-start): Use memq
instead of member as we are searching for symbols. Also
search in valid-task-attributes instead of
valid-resource-attributes.
-rw-r--r-- | contrib/lisp/ox-taskjuggler.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index c6ed1a5..3458e06 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -457,17 +457,17 @@ ITEM is a headline. Return value is a string." (defun org-taskjuggler-get-start (item) "Return start date for task or resource ITEM. ITEM is a headline. Return value is a string or nil if ITEM -doesn't have any start date defined.." +doesn't have any start date defined." (let ((scheduled (org-element-property :scheduled item))) (or (and scheduled (org-timestamp-format scheduled "%Y-%02m-%02d")) - (and (member 'start org-taskjuggler-valid-resource-attributes) + (and (memq 'start org-taskjuggler-valid-task-attributes) (org-element-property :START item))))) (defun org-taskjuggler-get-end (item) "Return end date for task or resource ITEM. ITEM is a headline. Return value is a string or nil if ITEM -doesn't have any end date defined.." +doesn't have any end date defined." (let ((deadline (org-element-property :deadline item))) (and deadline (org-timestamp-format deadline "%Y-%02m-%02d")))) |