[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 090dacb0a9 4/4: org-fast-tag-selection: Make group
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 090dacb0a9 4/4: org-fast-tag-selection: Make group tags separator not break alignment |
Date: |
Mon, 22 Aug 2022 08:57:54 -0400 (EDT) |
branch: externals/org
commit 090dacb0a9a3aac02b8cfa0e25f607d1f3cd2064
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-fast-tag-selection: Make group tags separator not break alignment
* lisp/org.el (org-fast-tag-selection): Start " : " group tags
separator before tag column in the menu.
Reported in
https://orgmode.org/list/62f04f7c.d40a0220.9da67.0a2cSMTPIN_ADDED_BROKEN@mx.google.com
---
lisp/org.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 81fb8cb9d1..e9de348472 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11755,7 +11755,9 @@ Returns the new tags string, or nil to not change the
current settings."
(while (equal (car tbl) '(:newline))
(insert "\n")
(setq tbl (cdr tbl)))))
- ((equal e '(:grouptags)) (insert " : "))
+ ((equal e '(:grouptags))
+ (delete-char -3)
+ (insert " : "))
(t
(setq tg (copy-sequence (car e)) c2 nil)
(if (cdr e)