diff options
| author | Juri Linkov <juri@linkov.net> | 2022-05-27 19:13:09 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-05-27 19:13:09 +0300 |
| commit | 6c4d767019c69e0c3a6b464a5856eb7655022e38 (patch) | |
| tree | 86fb516bab83c645ebad05c5edb023afebd4226c /lisp/minibuffer.el | |
| parent | 4df20e2f14ac6f1bae2730e2f9afed8e83dd78de (diff) | |
| download | emacs-6c4d767019c69e0c3a6b464a5856eb7655022e38.tar.gz emacs-6c4d767019c69e0c3a6b464a5856eb7655022e38.tar.bz2 emacs-6c4d767019c69e0c3a6b464a5856eb7655022e38.zip | |
Fix navigation in the *Completions* buffer and enable more tests (bug#54374)
* lisp/ido.el: Use first-completion instead of next-completion.
* lisp/minibuffer.el (completion--insert): Put completion--string
text property on prefix and suffix as well.
* lisp/simple.el (first-completion, last-completion): New commands.
(next-completion): Rewrite to fix many bugs reported in
bug#54374, bug#55289, bug#55430.
(choose-completion): Use the text property completion--string that
allows to select a completion when point is on its prefix or suffix.
(switch-to-completions): Use first-completion instead of next-completion,
and last-completion instead of previous-completion.
* test/lisp/minibuffer-tests.el (completion-auto-select-test)
(completion-auto-wrap-test, completions-header-format-test)
(completions-affixation-navigation-test): Uncomment fixed lines.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 6694340e021..6ae25b8def3 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -2074,11 +2074,11 @@ Runs of equal candidate strings are eliminated. GROUP-FUN is a (when prefix (let ((beg (point)) (end (progn (insert prefix) (point)))) - (put-text-property beg end 'mouse-face nil))) + (add-text-properties beg end `(mouse-face nil completion--string ,(car str))))) (completion--insert (car str) group-fun) (let ((beg (point)) (end (progn (insert suffix) (point)))) - (put-text-property beg end 'mouse-face nil) + (add-text-properties beg end `(mouse-face nil completion--string ,(car str))) ;; Put the predefined face only when suffix ;; is added via annotation-function without prefix, ;; and when the caller doesn't use own face. |