; (completion-basic-all-completions): Fix recent change

* lisp/minibuffer.el (completion-basic-all-completions): Don't
omit base size.

https://lists.gnu.org/archive/html/emacs-devel/2024-06/msg00235.html

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 144cda8cfdc55d5f11ae4c1734cd2af475a9f75a..0a0b17b38503429da08522edd6930b32c8d6894f 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3816,7 +3816,9 @@ Return the new suffix."
                             'point
                             (substring afterpoint 0 (cdr bounds)))))
          (all (completion-pcm--all-completions prefix pattern table pred)))
-    (completion-pcm--hilit-commonality pattern all)))
+    (when all
+      (nconc (completion-pcm--hilit-commonality pattern all)
+             (car bounds)))))
 
 ;;; Partial-completion-mode style completion.