branch: externals/tmr
commit 9d17bc196a0c891faa33af64277f3ec877f89016
Author: Damien Cassou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
tmr--description-prompt: Don't sort candidates
This function shouldn't sort its candidates so the user can learn
their position by heart and can order candidates as s·he pleases.
https://github.com/minad/vertico/issues/228
---
tmr.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/tmr.el b/tmr.el
index 85fc08d900..f279441824 100644
--- a/tmr.el
+++ b/tmr.el
@@ -289,7 +289,13 @@ present."
(if default
(format "Description for this tmr [%s]: " default)
"Description for this tmr: ")
- tmr-descriptions-list nil nil nil
+ (lambda (string predicate action)
+ (if (eq action 'metadata)
+ `(metadata (display-sort-function . ,#'identity)
+ (cycle-sort-function . ,#'identity))
+ (complete-with-action
+ action tmr-descriptions-list string predicate)))
+ nil nil nil
'tmr--description-hist default))
(defun tmr--complete (timer)
