[completion] Disable client-side sorting

Author: alexander-yakushev

CHANGELOG.md

@@ -17,6 +17,7 @@
 - [#3784](https://github.com/clojure-emacs/cider/issues/3784): Inspector: make point less erratic when navigating between inspector screens.
 - [#3790](https://github.com/clojure-emacs/cider/issues/3790): Stacktrace: show messages and data for all exception causes by default.
 - [#3789](https://github.com/clojure-emacs/cider/issues/3789): Refactor and simplify exception handling.
+- [#3789](https://github.com/clojure-emacs/cider/issues/3796): Completion: disable client-side sorting (defer to backend-provided candidate order).
 
 ## 1.17.1 (2025-02-25)
 

cider-client.el

@@ -672,6 +672,7 @@ CONTEXT represents a completion context for compliment."
                                     "ns" ,(cider-current-ns)
                                     "prefix" ,prefix
                                     "context" ,context
+                                    "sort-order" "by-name"
                                     ,@(when cider-enhanced-cljs-completion-p '("enhanced-cljs-completion?" "t")))
                                   (cider-nrepl-send-sync-request (cider-current-repl)
                                                                  'abort-on-input))))

cider-completion.el

@@ -211,7 +211,10 @@ performed by `cider-annotate-completion-function'."
                 ;;
                 ;; This api is better described in the section
                 ;; '21.6.7 Programmed Completion' of the elisp manual.
-                (cond ((eq action 'metadata) `(metadata (category . cider))) ;; defines a completion category named 'cider, used later in our `completion-category-overrides` logic.
+                (cond ((eq action 'metadata)
+                       `(metadata
+                         (category . cider) ;; defines a completion category named 'cider, used later in our `completion-category-overrides` logic.
+                         (display-sort-function . identity))) ;; don't override sorting done by backend
                       ((eq (car-safe action) 'boundaries) nil)
                       (t (with-current-buffer (current-buffer)
                            (complete-with-action action (funcall complete) prefix pred)))))