[nongnu] elpa/toc-org 5ce7c24920 096/128: handle paranthesis in #+TODO line (fixes #65)

[ELPA Syncer]

branch: elpa/toc-org
commit 5ce7c249207b617c72febb27dbad7076342c1afd
Author: Sergei Nosov <sergei.nosov@gmail.com>
Commit: Sergei Nosov <sergei.nosov@gmail.com>

    handle paranthesis in #+TODO line (fixes #65)
---
 toc-org.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/toc-org.el b/toc-org.el
index ce1cf322aa..4c52f234b0 100644
--- a/toc-org.el
+++ b/toc-org.el
@@ -127,7 +127,10 @@ auxiliary text."
         (setq custom-keywords (append custom-keywords (split-string 
(match-string 2) "[ \f\t\n\r\v|]+" t))))
       (if custom-keywords
           (setq toc-org-states-regexp
-                (concat "^*+\s+\\(" (mapconcat 'identity custom-keywords 
"\s+\\|") "\s+\\)"))
+                (concat "^*+\s+\\("
+                        (mapconcat (lambda (x) (replace-regexp-in-string 
"(.+?)" "" x))
+                                   custom-keywords "\s+\\|")
+                        "\s+\\)"))
         (setq toc-org-states-regexp "^*+\s+\\(TODO\s+\\|DONE\s+\\)"))
 
       ;; keep only lines starting with *s