From 7fc28443484f7b8c701d7c076f1c9c4e389651e7 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sun, 15 Apr 2018 17:41:44 +0800 Subject: [PATCH] * org.el: make fast tags selection popup narrower to look better. * lisp/org.el (org-fast-tag-selection): original spaces behind each tag is calculated based on window width. It is big. Diffcult to find tags. --- lisp/org.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 4080f3884..e08129498 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14647,8 +14647,7 @@ Returns the new tags string, or nil to not change the current settings." (when (equal (caar tbl) :grouptags) (org-add-props tg nil 'face 'org-tag-group)) (when (and (zerop cnt) (not ingroup) (not intaggroup)) (insert " ")) - (insert "[" c "] " tg (make-string - (- fwidth 4 (length tg)) ?\ )) + (insert "[" c "] " tg (make-string 2 ?\ )) (push (cons tg c) ntable) (when (= (cl-incf cnt) ncol) (insert "\n") -- 2.17.0