diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2021-06-14 09:31:01 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2021-06-14 11:52:28 +0200 |
| commit | 88e07af18cddbb0639b55ab21012eca1cd630b49 (patch) | |
| tree | ec987e5c403e81f36717ffb5fd5a83723b0b38c1 /lisp | |
| parent | e17cc751baa17f142fbc41710bf645f6fdc64a80 (diff) | |
| download | emacs-88e07af18cddbb0639b55ab21012eca1cd630b49.tar.gz emacs-88e07af18cddbb0639b55ab21012eca1cd630b49.tar.bz2 emacs-88e07af18cddbb0639b55ab21012eca1cd630b49.zip | |
Preserve order of completion during cycling
* rcirc.el (rcirc-completion-at-point): Specify cycle-sort-function
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/rcirc.el | 6 |
1 files changed, 5 insertions, 1 deletions
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." |