[Top][All Lists]

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

[elpa] master 5e54abd 123/399: Fix counsel-org-tag-agenda

From: Oleh Krehel
Subject: [elpa] master 5e54abd 123/399: Fix counsel-org-tag-agenda
Date: Sat, 20 Jul 2019 14:57:04 -0400 (EDT)

branch: master
commit 5e54abd0eb529aff16f3050ba134c88ca7bf19af
Author: Gonçalo Santos <address@hidden>
Commit: GitHub <address@hidden>

    Fix counsel-org-tag-agenda
    As of Org 9.2.3, this function is not working because `org-set-tags` is the 
function that received the tags list or string, while the counsel substitute 
doesn't have any parameters.
    Changing this to `org-set-tags-command`, which is called from 
`org-agenda-set-tags` fixes the issue.
 counsel.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/counsel.el b/counsel.el
index f3efba1..09163e9 100644
--- a/counsel.el
+++ b/counsel.el
@@ -3072,13 +3072,13 @@ otherwise continue prompting for tags."
 (defun counsel-org-tag-agenda ()
   "Set tags for the current agenda item."
-  (let ((store (symbol-function 'org-set-tags)))
+  (let ((store (symbol-function 'org-set-tags-command)))
-           (fset 'org-set-tags
+           (fset 'org-set-tags-command
                  (symbol-function 'counsel-org-tag))
            (org-agenda-set-tags nil nil))
-      (fset 'org-set-tags store))))
+      (fset 'org-set-tags-command store))))
 (define-obsolete-variable-alias 'counsel-org-goto-display-tags
     'counsel-org-headline-display-tags "0.10.0")

reply via email to

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