branch: externals/org-contacts
commit c1c4cadf3f7890a07d03c531ef823e1fb5f3ef2f
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
Fix Warning: Unused lexical argument
---
org-contacts.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/org-contacts.el b/org-contacts.el
index 7fcb8a7e56..1aa8dcab64 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -634,7 +634,8 @@ description."
(defun org-contacts-org-complete--annotation-function (candidate)
"Return org-contacts tags of contact candidate."
;; TODO
- "Tags: ")
+ "Tags: "
+ (ignore candidate))
;;;###autoload
(defun org-contacts-org-complete--doc-function (candidate)
@@ -661,6 +662,7 @@ description."
(let ((content (buffer-substring (point-min)
(point-max))))
(when (buffer-narrowed-p) (widen))
content))))))
+ (ignore name)
(with-current-buffer doc-buffer
(read-only-mode 1)
(let ((inhibit-read-only t))
@@ -684,6 +686,7 @@ description."
(name (plist-get contact :name))
(file (plist-get contact :file))
(position (plist-get contact :position)))
+ (ignore name)
(with-current-buffer (find-file-noselect file)
(goto-char position)
(cons (current-buffer) position))))
@@ -1373,6 +1376,7 @@ Each element has the form (NAME . (FILE . POSITION))."
(goto-char position)
;; (symbol-name (org-property-or-variable-value 'EMAIL))
(org-entry-get (point) "EMAIL")))))
+ (ignore name)
;; (cons name email)
email))
(org-contacts--all-contacts)))
