From 3b5150cdc22c5ec5c39e9796ac858642a249ea69 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sat, 13 Jul 2024 20:54:26 +0300 Subject: [PATCH] org-clock-agg: fix error when todo-keyword is iul --- org-clock-agg.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/org-clock-agg.el b/org-clock-agg.el index 2c19d27..d6fd5fd 100644 --- a/org-clock-agg.el +++ b/org-clock-agg.el @@ -1072,12 +1072,11 @@ NODE is one node of a tree, which is described in the function (?d . ,(org-duration-from-minutes (/ (alist-get :duration elem) 60))) (?t . ,(concat - (when-let ((todo-keyword (substring-no-properties - (org-element-property - :todo-keyword - (alist-get :headline elem))))) + (when-let ((todo-keyword + (org-element-property + :todo-keyword (alist-get :headline elem)))) (propertize - (concat todo-keyword " ") 'face + (concat (substring-no-properties todo-keyword) " ") 'face (if (eq (org-element-property :todo-type (alist-get :headline elem)) 'done)