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 9fdbf12cd89ba01f85cb8c46601271ae63e9016e..de42220f96f071711d6059d2d11b52e1cdfde129 100644 (file)
--- 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."