[elpa] externals/org-contacts c1c4cadf3f 151/154: Fix Warning: Unused lexical argument

[ELPA Syncer]

branch: externals/org-contacts
commit c1c4cadf3f7890a07d03c531ef823e1fb5f3ef2f
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@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)))