From mboxrd@z Thu Jan 1 00:00:00 1970 From: Allen Li Subject: [PATCH] org.el: Allow tags without keys in customization Date: Wed, 2 Aug 2017 12:23:09 -0700 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:58424) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dczEd-0005Io-NI for emacs-orgmode@gnu.org; Wed, 02 Aug 2017 15:23:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dczEc-0008VW-Qx for emacs-orgmode@gnu.org; Wed, 02 Aug 2017 15:23:11 -0400 Received: from mail-qt0-x22e.google.com ([2607:f8b0:400d:c0d::22e]:35252) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dczEc-0008VA-L2 for emacs-orgmode@gnu.org; Wed, 02 Aug 2017 15:23:10 -0400 Received: by mail-qt0-x22e.google.com with SMTP id p3so32715509qtg.2 for ; Wed, 02 Aug 2017 12:23:10 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org * lisp/org.el (org-tag-alist, org-tag-persistent-alist): Add non-keyed tag type. --- lisp/org.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 335d6c48a..28b206d99 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3456,8 +3456,10 @@ See also `org-tag-persistent-alist' to sidestep this behavior." :group 'org-tags :type '(repeat (choice - (cons (string :tag "Tag name") - (character :tag "Access char")) + (cons :tag "Tag with key" + (string :tag "Tag name") + (character :tag "Access char")) + (list :tag "Tag" (string :tag "Tag name")) (const :tag "Start radio group" (:startgroup)) (const :tag "Start tag group, non distinct" (:startgrouptag)) (const :tag "Group tags delimiter" (:grouptags)) @@ -3489,8 +3491,10 @@ on a per-file basis, insert anywhere in the file: :group 'org-tags :type '(repeat (choice - (cons (string :tag "Tag name") + (cons :tag "Tag with key" + (string :tag "Tag name") (character :tag "Access char")) + (list :tag "Tag" (string :tag "Tag name")) (const :tag "Start radio group" (:startgroup)) (const :tag "Start tag group, non distinct" (:startgrouptag)) (const :tag "Group tags delimiter" (:grouptags)) -- 2.14.0.rc1.383.gd1ce394fe2-goog