Merge branch 'maint'

lisp/org.el

@@ -15721,8 +15721,8 @@ When INCREMENT is non-nil, set the property to the next allowed value."
 		    (org-completing-read "Effort: " allowed nil))))
 	       (t
 		(org-completing-read
-		 (concat "Effort " (if (and cur (string-match "\\S-" cur))
-				       (concat "[" cur "]") "")
+		 (concat "Effort" (and cur (string-match "\\S-" cur)
+				       (concat " [" cur "]"))
 			 ": ")
 		 existing nil nil "" nil cur)))))
     (unless (equal (org-entry-get nil prop) val)
@@ -15731,7 +15731,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-clock-current-task)
+    (when (string= heading (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)))