[elpa] externals/ebdb a9b8195 1/2: Fix compiler warnings for ebdb-org.el

[Eric Abrahamsen]

branch: externals/ebdb
commit a9b8195391c85381a0414d756cf4cd3381c32d3c
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix compiler warnings for ebdb-org.el
    
    * ebdb-org.el (ebdb-org-store-link): Function has changed names in
    newer Org version.
    (ebdb-org-field-tags): Underscore arg name to quiet warning.
---
 ebdb-org.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ebdb-org.el b/ebdb-org.el
index 73eff77..72887b1 100644
--- a/ebdb-org.el
+++ b/ebdb-org.el
@@ -85,8 +85,12 @@
           (uuid (ebdb-record-uuid rec))
           (name (ebdb-record-name rec))
           (link (format "ebdb:uuid/%s" uuid)))
-      (org-store-link-props :type "ebdb" :name name
-                           :link link :description name)
+      (with-no-warnings
+       (funcall (if (fboundp 'org-link-store-props)
+                    #'org-link-store-props
+                  #'org-store-link-props)
+                :type "ebdb" :name name
+                :link link :description name))
       link)))
 
 (defun ebdb-org-open (link)
@@ -133,7 +137,7 @@ italicized, in all other cases it is left unchanged."
   nil
   :human-readable "org tags")
 
-(cl-defmethod make-instance :around ((cls (subclass ebdb-org-field-tags))
+(cl-defmethod make-instance :around ((_cls (subclass ebdb-org-field-tags))
                                     &rest slots)
   "Return an instance of `ebdb-field-tags' instead."
   (apply #'cl-call-next-method 'ebdb-field-tags slots))