From 18d4945fccfda2506a6ff24a202dd084a3d3d771 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Thu, 18 Nov 2021 15:57:22 +0800 Subject: [PATCH] Fix company-mode `company-show-location' support --- org-contacts.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 8d8c48e..44eb016 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -656,9 +656,13 @@ description." (defun org-contacts-org-complete--location-function (candidate) "Return org-contacts location of contact candidate." - (let ((name (plist-get candidate :name)) - (file (plist-get candidate :file)) - (position (plist-get candidate :position))) + (let* ((candidate (substring-no-properties candidate 1 nil)) + (contact (seq-find + (lambda (contact) (string-equal (plist-get contact :name) candidate)) + (org-contacts--all-contacts))) + (name (plist-get contact :name)) + (file (plist-get contact :file)) + (position (plist-get contact :position))) (with-current-buffer (find-file-noselect file) (goto-char position) (cons (current-buffer) position))))