summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Egli <christian.egli@alumni.ethz.ch>2013-04-30 13:50:07 (GMT)
committer Christian Egli <christian.egli@alumni.ethz.ch>2013-04-30 13:50:07 (GMT)
commit7132081e92aced737c3c05c0b305c636ec17575c (patch)
tree47e7ab4c9c4da49ca5449ee79b7816dfe051b332
parentd109e4d83c47aa27ddebf33403203ce0bca93c12 (diff)
downloadorg-mode-7132081e92aced737c3c05c0b305c636ec17575c.zip
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.el6
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"))))