emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 9ad2b795b5 1/2: consult-org-*: show inherited t


From: ELPA Syncer
Subject: [elpa] externals/consult 9ad2b795b5 1/2: consult-org-*: show inherited tags (#767)
Date: Wed, 15 Mar 2023 11:57:39 -0400 (EDT)

branch: externals/consult
commit 9ad2b795b54931aa956a81296cc9d9134b266212
Author: Alexandru Scvorțov <github@abstractbinary.org>
Commit: GitHub <noreply@github.com>

    consult-org-*: show inherited tags (#767)
---
 consult-org.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult-org.el b/consult-org.el
index 6512c34a49..5253730425 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -67,12 +67,13 @@ MATCH, SCOPE and SKIP are as in `org-map-entries'."
        (unless (eq buffer (buffer-name))
          (setq buffer (buffer-name)
                org-outline-path-cache nil))
-       (pcase-let ((`(_ ,level ,todo ,prio ,_hl ,tags) 
(org-heading-components))
+       (pcase-let ((`(_ ,level ,todo ,prio ,_hl) (org-heading-components))
+                   (tags (org-get-tags))
                    (cand (org-format-outline-path
                           (org-get-outline-path 'with-self 'use-cache)
                           most-positive-fixnum)))
          (when tags
-           (setq tags (concat " " tags))
+           (setq tags (concat " :" (string-join tags ":") ":"))
            (put-text-property 1 (length tags) 'face 'org-tag tags))
          (setq cand (if prefix
                         (concat buffer " " cand tags (consult--tofu-encode 
(point)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]