[elpa] scratch/org-contacts-rebased cf0668a 064/118: org-contacts: Provide ordering when using cycle completion

[Stefan Monnier]

branch: scratch/org-contacts-rebased
commit cf0668a3088bad205e0e41e4ec93320af8ab622f
Author: Øyvind Stegard <oyvind.stegard@ifi.uio.no>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>

    org-contacts: Provide ordering when using cycle completion
    
    * contrib/lisp/org-contacts.el (org-contacts-metadata-prefix):
    Provide same function for cycle ordering as is used for display ordering
    in completion metadata.
    
    When using cycle completion style for contacts, by setting
    `completion-cycle-threshold' to some value, the ordering was not consistent
    with order of email addresses in contact definition, nor the order
    which was used for regular display completion. Fix that by also
    supplying sort function for cycle completion in metadata.
---
 org-contacts.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index 5d63fcc..71f7bf4 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -452,7 +452,8 @@ prefixes rather than just the beginning of the string."
 
 (defun org-contacts-metadata-prefix (string collection predicate)
   '(metadata .
-            ((display-sort-function . org-contacts-display-sort-function))))
+            ((cycle-sort-function . org-contacts-display-sort-function)
+             (display-sort-function . org-contacts-display-sort-function))))
 
 (defun org-contacts-complete-group (start end string)
   "Complete text at START from a group.