diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-29 20:46:35 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-29 20:46:35 +0000 |
| commit | d4e88786de7b156e480c898a51add9d4812e4253 (patch) | |
| tree | b147da9eb19cd96db4149a5b921d0393381b9b69 /lisp/minibuffer.el | |
| parent | 2926947a670b0679a34f90841fa7abc3f788474e (diff) | |
| download | emacs-d4e88786de7b156e480c898a51add9d4812e4253.tar.gz | |
(completion-pcm-all-completions): Add the base-size.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." |