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

Tiny fix to `org-set-effort' 

* lisp/org.el (org-set-effort): Use `equal' instead of `string='.

Since (string= "nil" nil) is non-nil, a "nil" heading could be mistaken
for the current clocked task if `org-clock-current-task' is not bound,
or if there is no current clocked task.
This commit is contained in:
Nicolas Goaziou 2016-06-22 22:39:50 +02:00
parent 2be2a15566
commit ecffcbcf1c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -15711,7 +15711,7 @@ When INCREMENT is non-nil, set the property to the next allowed value."
'((effort . identity)
(effort-minutes . org-duration-string-to-minutes))
val)
(when (string= heading (org-bound-and-true-p org-clock-current-task))
(when (equal heading (org-bound-and-true-p org-clock-current-task))
(setq org-clock-effort (get-text-property (point-at-bol) 'effort))
(org-clock-update-mode-line))
(message "%s is now %s" prop val)))