(completion-pcm-all-completions): Add the base-size.

This commit is contained in:
Stefan Monnier 2008-05-29 20:46:35 +00:00
parent 2926947a67
commit d4e88786de
2 changed files with 7 additions and 1 deletions

View file

@ -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.

View file

@ -1496,7 +1496,9 @@ PATTERN is as returned by `completion-pcm--string->pattern'."
(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."