[elpa] master 0465711 124/399: counsel.el (counsel-org-tag-agenda): Check org-version

[Oleh Krehel]

branch: master
commit 0465711c0d2b6405b8fd014772965279b9d98a7b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-org-tag-agenda): Check org-version
    
    Re #1997
---
 counsel.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/counsel.el b/counsel.el
index 09163e9..9936e8e 100644
--- a/counsel.el
+++ b/counsel.el
@@ -3072,13 +3072,15 @@ otherwise continue prompting for tags."
 (defun counsel-org-tag-agenda ()
   "Set tags for the current agenda item."
   (interactive)
-  (let ((store (symbol-function 'org-set-tags-command)))
+  (let* ((cmd-sym (if (version< (org-version) "9.2")
+                      'org-set-tags
+                    'org-set-tags-command))
+         (store (symbol-function cmd-sym)))
     (unwind-protect
          (progn
-           (fset 'org-set-tags-command
-                 (symbol-function 'counsel-org-tag))
+           (fset cmd-sym (symbol-function 'counsel-org-tag))
            (org-agenda-set-tags nil nil))
-      (fset 'org-set-tags-command store))))
+      (fset cmd-sym store))))
 
 (define-obsolete-variable-alias 'counsel-org-goto-display-tags
     'counsel-org-headline-display-tags "0.10.0")