emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/toc-org 40c6754d9f 083/128: replacs string-join with mapco


From: ELPA Syncer
Subject: [nongnu] elpa/toc-org 40c6754d9f 083/128: replacs string-join with mapconcat
Date: Sun, 2 Jan 2022 09:59:11 -0500 (EST)

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

    replacs string-join with mapconcat
    
    compatibility reasons
---
 toc-org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toc-org.el b/toc-org.el
index 8e9ffb9509..9f72029b75 100644
--- a/toc-org.el
+++ b/toc-org.el
@@ -122,7 +122,7 @@ 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+\\(" (string-join custom-keywords "\s+\\|") 
"\s+\\)"))
+                (concat "^*+\s+\\(" (mapconcat 'identity custom-keywords 
"\s+\\|") "\s+\\)"))
         (setq toc-org-states-regexp "^*+\s+\\(TODO\s+\\|DONE\s+\\)"))
 
       ;; keep only lines starting with *s



reply via email to

[Prev in Thread] Current Thread [Next in Thread]