From d4e88786de7b156e480c898a51add9d4812e4253 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 29 May 2008 20:46:35 +0000 Subject: [PATCH] (completion-pcm-all-completions): Add the base-size. --- lisp/ChangeLog | 4 ++++ lisp/minibuffer.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eddd41438da..fda00d685d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-05-29 Stefan Monnier + + * minibuffer.el (completion-pcm-all-completions): Add the base-size. + 2008-05-29 Juanma Barranquero * icomplete.el (icomplete-prospects-height): Add :group. diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index f24d1b068be..8dd0c776f5f 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -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." -- 2.39.2