From c1c4cadf3f7890a07d03c531ef823e1fb5f3ef2f Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sat, 4 Jun 2022 09:02:12 +0800 Subject: [PATCH] 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 7fcb8a7..1aa8dca 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)))