mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(completion-common-substring): Use completion-common-substring' prior to completion-base-size'.

Browse source
This commit is contained in:
Masatake YAMATO 2005-10-24 16:56:53 +00:00
parent 8c6fac61df
commit dc447cc519
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

8
lisp/simple.el
View file

@ -4921,11 +4921,11 @@ is the substring.)")
(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))