[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 6acc58c9c6: * lisp/org.el (org-get-buffer-tags): Re
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 6acc58c9c6: * lisp/org.el (org-get-buffer-tags): Remove text properties from tags |
Date: |
Thu, 11 Aug 2022 07:57:45 -0400 (EDT) |
branch: externals/org
commit 6acc58c9c6bcfd45dcc5964cac7e3df8347121cc
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
* lisp/org.el (org-get-buffer-tags): Remove text properties from tags
Do not preserve buffer text properties. They may will be shown in the
completion as well, which is not expected by users.
Fixes
https://orgmode.org/list/CAKJdtO_0aUmiKFjS34hoD525vMFkUJuVCCzGrFfR_Lt2_Vm58g@mail.gmail.com
---
lisp/org.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 3b1caecf11..4eef56f455 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11961,7 +11961,9 @@ Inherited tags have the `inherited' text property."
(org-element-cache-map
(lambda (el)
(dolist (tag (org-element-property :tags el))
- (puthash (list tag) t hashed))))
+ ;; Do not carry over the text properties. They may look
+ ;; ugly in the completion.
+ (puthash (list (substring-no-properties tag)) t hashed))))
(dolist (tag org-file-tags) (puthash (list tag) t hashed))
(hash-table-keys hashed))
(org-with-point-at 1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 6acc58c9c6: * lisp/org.el (org-get-buffer-tags): Remove text properties from tags,
ELPA Syncer <=