From 88e07af18cddbb0639b55ab21012eca1cd630b49 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Mon, 14 Jun 2021 09:31:01 +0200 Subject: [PATCH] Preserve order of completion during cycling * rcirc.el (rcirc-completion-at-point): Specify cycle-sort-function --- lisp/net/rcirc.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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." -- 2.39.2