Mercurial > emacs
changeset 66405:436739baf9f1
(completion-common-substring): Use `completion-common-substring' prior to `completion-base-size'.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Mon, 24 Oct 2005 16:56:53 +0000 |
| parents | 48fff88992ce |
| children | 9ee3fe90596c |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 24 16:47:53 2005 +0000 +++ b/lisp/ChangeLog Mon Oct 24 16:56:53 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-25 Masatake YAMATO <jet@gyve.org> + + * simple.el (completion-common-substring): Use `completion-common-substring' + prior to `completion-base-size'. + 2005-10-24 Kenichi Handa <handa@m17n.org> * international/utf-7.el (utf-7): Add autoload cookie.
--- a/lisp/simple.el Mon Oct 24 16:47:53 2005 +0000 +++ b/lisp/simple.el Mon Oct 24 16:56:53 2005 +0000 @@ -4921,11 +4921,11 @@ (funcall (get minibuffer-completion-table 'completion-base-size-function))) (setq completion-base-size 0)))) ;; Put faces on first uncommon characters and common parts. - (when (or completion-base-size completion-common-substring) + (when (or completion-common-substring completion-base-size) (let* ((common-string-length - (if completion-base-size - (- (length mbuf-contents) completion-base-size) - (length completion-common-substring))) + (if completion-common-substring + (length completion-common-substring) + (- (length mbuf-contents) completion-base-size))) (element-start (next-single-property-change (point-min) 'mouse-face))