Mercurial > emacs

diff lisp/minibuffer.el @ 95394:119c6508d4f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-pcm-all-completions): Add the base-size.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 29 May 2008 20:46:35 +0000
parents 451f4028c096
children 92edde3e7af6
line wrap: on
line diff
--- 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."