branch: externals/ebdb
commit a9b8195391c85381a0414d756cf4cd3381c32d3c
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
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))
