diff options
| author | Jimmy Aguilar Mena <spacibba@aol.com> | 2022-03-13 20:42:08 +0100 |
|---|---|---|
| committer | Jimmy Aguilar Mena <spacibba@aol.com> | 2022-03-13 20:42:08 +0100 |
| commit | 3f17e3acb3f0cff731c555f2abb97c763f005fc4 (patch) | |
| tree | f9e771a15b520feb6a51c47cb376ef2e2157ed73 /lisp/minibuffer.el | |
| parent | e303fa3e605bd9d0f43a5acaa39e9a24ac44e1db (diff) | |
| download | emacs-3f17e3acb3f0cff731c555f2abb97c763f005fc4.tar.gz emacs-3f17e3acb3f0cff731c555f2abb97c763f005fc4.tar.bz2 emacs-3f17e3acb3f0cff731c555f2abb97c763f005fc4.zip | |
Extend completion-auto-help 'always and 'visible.
Make them behave the same also with exact but not single completion.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 878a1104ebe..d6d40d5b251 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1353,18 +1353,17 @@ when the buffer's text is already an exact match." (minibuffer-force-complete beg end)) (completed (cond - (exact - ;; If completion did not put point at end of field, - ;; it's a sign that completion is not finished. - (minibuffer-hide-completions) - (completion--done completion - (if (< comp-pos (length completion)) - 'exact 'unknown))) ((pcase completion-auto-help ('visible (get-buffer-window "*Completions*" 0)) ('always t)) (minibuffer-completion-help beg end)) - (t (minibuffer-hide-completions)))) + (t (minibuffer-hide-completions) + (when exact + ;; If completion did not put point at end of field, + ;; it's a sign that completion is not finished. + (completion--done completion + (if (< comp-pos (length completion)) + 'exact 'unknown)))))) ;; Show the completion table, if requested. ((not exact) (if (pcase completion-auto-help |