tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Christian Egli 2013-04-30 15:50:07 +02:00
parent d109e4d83c
commit 7132081e92
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/lisp/ox-taskjuggler.el
View File

@ -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"))))