From ecffcbcf1c6a9e03580e2992d73f0b42f209f1ca Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 22 Jun 2016 22:39:50 +0200 Subject: [PATCH] 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. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 0865bbb89..ed0337cd3 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))) -- 2.11.4.GIT