From 31fbfca4884083adacd95054155cda9ed0128fba Mon Sep 17 00:00:00 2001 From: Nicholas Vollmer Date: Fri, 3 Sep 2021 14:50:48 -0400 Subject: [PATCH] Allow "," to delimit tags * org.el: Add `org-tags-crm-separtor' regexp (org-set-tags-command, org-capture-fill-template): Use `org-tags-crm-separators'. --- lisp/org-capture.el | 2 +- lisp/org.el | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index cbdb30c03..cd65f8e6d 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -1739,7 +1739,7 @@ The template may still contain \"%?\" for cursor positioning." (org-add-colon-after-tag-completion t) (ins (mapconcat #'identity - (let ((crm-separator "[ \t]*:[ \t]*")) + (let ((crm-separator org-tags-crm-separator)) (completing-read-multiple (if prompt (concat prompt ": ") "Tags: ") org-last-tags-completion-table nil nil nil diff --git a/lisp/org.el b/lisp/org.el index 8b9d57157..572e291c7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12007,6 +12007,9 @@ tags." ;; it now points to BLANK-START. Use COLUMN instead. (if in-blank? (org-move-to-column column) (goto-char origin)))))) +(defvar org-tags-crm-separator (format "[ \t]*%s[ \t]*" (regexp-opt '("," ":"))) + "Regexp to separate tags in commands which use `completing-read-multiple'.") + (defun org-set-tags-command (&optional arg) "Set the tags for the current visible entry. @@ -12066,7 +12069,7 @@ in Lisp code use `org-set-tags' instead." table (and org-fast-tag-selection-include-todo org-todo-key-alist)) (let ((org-add-colon-after-tag-completion (< 1 (length table))) - (crm-separator "[ \t]*:[ \t]*")) + (crm-separator org-tags-crm-separator)) (mapconcat #'identity (completing-read-multiple "Tags: " -- 2.33.0