emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix closing *Completions* on sole completion of file name

Browse source 
* lisp/minibuffer.el (minibuffer-completion-help): Remove the
completion base from the minibuffer contents before comparing to
a sole completion (bug#81641).
This commit is contained in:
Sean Whitton 2026-09-04 13:48:41 +01:00
parent ec581f0da3
commit 2d5657b9dc
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/minibuffer.el
View file

@ -2881,13 +2881,16 @@ has been requested by the completion table."
minibuffer-completion-table
minibuffer-completion-predicate
(- (point) start)
md)))
md))
(last (last completions))
(base-size (or (cdr last) 0)))
(message nil)
(when (or completion-auto-deselect completion-eager-update)
(add-hook 'after-change-functions #'completions--after-change nil t))
(if (or (null completions)
(and (not (consp (cdr completions)))
(equal (car completions) string)))
(equal (car completions)
(substring string base-size))))
(progn
;; If there are no completions, or if the current input is already
;; the sole completion, then hide (previous&stale) completions.
@ -2898,9 +2901,8 @@ has been requested by the completion table."
(ding)
(completion--message "No match"))))
(let* ((last (last completions))
(base-size (or (cdr last) 0))
(prefix (unless (zerop base-size) (substring string 0 base-size)))
(let* ((prefix (and (plusp base-size)
(substring string 0 base-size)))
(minibuffer-completion-base (substring string 0 base-size))
(ctable minibuffer-completion-table)
(cpred minibuffer-completion-predicate)