# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1212093995 0
# Node ID 119c6508d4f86cc3174318cff4fe40ed83cb6e3d
# Parent  c6d82cbe67bccb1a4e13e3ffc4546f4b67ff0787
(completion-pcm-all-completions): Add the base-size.

diff -r c6d82cbe67bc -r 119c6508d4f8 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 29 20:18:07 2008 +0000
+++ b/lisp/ChangeLog	Thu May 29 20:46:35 2008 +0000
@@ -1,3 +1,7 @@
+2008-05-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* minibuffer.el (completion-pcm-all-completions): Add the base-size.
+
 2008-05-29  Juanma Barranquero  <lekktu@gmail.com>
 
 	* icomplete.el (icomplete-prospects-height): Add :group.
diff -r c6d82cbe67bc -r 119c6508d4f8 lisp/minibuffer.el
--- a/lisp/minibuffer.el	Thu May 29 20:18:07 2008 +0000
+++ b/lisp/minibuffer.el	Thu May 29 20:46:35 2008 +0000
@@ -1496,7 +1496,9 @@
 (defun completion-pcm-all-completions (string table pred point)
   (destructuring-bind (pattern all &optional prefix suffix)
       (completion-pcm--find-all-completions string table pred point)
-    (completion-pcm--hilit-commonality pattern all)))
+    (when all
+      (nconc (completion-pcm--hilit-commonality pattern all)
+             (length prefix)))))
 
 (defun completion-pcm--merge-completions (strs pattern)
   "Extract the commonality in STRS, with the help of PATTERN."