|
@@ -4279,10 +4279,10 @@ related expressions."
|
|
(setq org-current-tag-alist
|
|
(setq org-current-tag-alist
|
|
(org--tag-add-to-alist
|
|
(org--tag-add-to-alist
|
|
org-tag-persistent-alist
|
|
org-tag-persistent-alist
|
|
- (let ((tags (mapconcat #'identity
|
|
|
|
- (cdr (assoc "TAGS" alist))
|
|
|
|
- "\n")))
|
|
|
|
- (if (org-string-nw-p tags) (org-tag-string-to-alist tags)
|
|
|
|
|
|
+ (let ((tags (cdr (assoc "TAGS" alist))))
|
|
|
|
+ (if tags
|
|
|
|
+ (org-tag-string-to-alist
|
|
|
|
+ (mapconcat #'identity tags "\n"))
|
|
org-tag-alist))))
|
|
org-tag-alist))))
|
|
(setq org-tag-groups-alist
|
|
(setq org-tag-groups-alist
|
|
(org-tag-alist-to-groups org-current-tag-alist))
|
|
(org-tag-alist-to-groups org-current-tag-alist))
|