feature/rcirc-update 88e07af 4/8: Preserve order of completion during cycling

[Philip Kaludercic]

branch: feature/rcirc-update
commit 88e07af18cddbb0639b55ab21012eca1cd630b49
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 9fdbf12..de42220 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."