From: Philip Kaludercic <philipk@posteo.net>
Date: Mon, 14 Jun 2021 07:31:01 +0000 (+0200)
Subject: Preserve order of completion during cycling
X-Git-Tag: emacs-28.0.90~1748^2~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88e07af18cddbb0639b55ab21012eca1cd630b49;p=emacs.git

Preserve order of completion during cycling

* rcirc.el (rcirc-completion-at-point): Specify cycle-sort-function
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 9fdbf12cd89..de42220f96f 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1151,7 +1151,11 @@ The list is updated automatically by `defun-rcirc-command'.")
                         (lambda (str) (concat (funcall rcirc-nick-filter str) ": "))
                         (rcirc-channel-nicks (rcirc-buffer-process)
 					     rcirc-target))))))
-	 (list beg (point) table))))
+	 (list beg (point)
+               (lambda (str pred action)
+                 (if (eq action 'metadata)
+                     '(metadata (cycle-sort-function . identity))
+                   (complete-with-action action table str pred)))))))
 
 (defun set-rcirc-decode-coding-system (coding-system)
   "Set the decode CODING-SYSTEM used in this channel."