diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-22 22:39:50 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-22 22:39:50 +0200 |
| commit | ecffcbcf1c6a9e03580e2992d73f0b42f209f1ca (patch) | |
| tree | 0ea7276ab158633b59f5faa77b7c34ed33a6a0ce | |
| parent | 2be2a15566782fad60d441582913a1f687b8b74d (diff) | |
| download | org-mode-ecffcbcf1c6a9e03580e2992d73f0b42f209f1ca.tar.gz | |
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.
| -rw-r--r-- | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 0865bbb..ed0337c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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))) |