Mercurial > emacs
comparison lisp/simple.el @ 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 | 37f27a66c519 |
| children | ef5c1ec14e1f b31326248cf6 |
comparison
equal
deleted
inserted
replaced
| 66404:48fff88992ce | 66405:436739baf9f1 |
|---|---|
| 4919 (get minibuffer-completion-table 'completion-base-size-function)) | 4919 (get minibuffer-completion-table 'completion-base-size-function)) |
| 4920 (setq completion-base-size | 4920 (setq completion-base-size |
| 4921 (funcall (get minibuffer-completion-table 'completion-base-size-function))) | 4921 (funcall (get minibuffer-completion-table 'completion-base-size-function))) |
| 4922 (setq completion-base-size 0)))) | 4922 (setq completion-base-size 0)))) |
| 4923 ;; Put faces on first uncommon characters and common parts. | 4923 ;; Put faces on first uncommon characters and common parts. |
| 4924 (when (or completion-base-size completion-common-substring) | 4924 (when (or completion-common-substring completion-base-size) |
| 4925 (let* ((common-string-length | 4925 (let* ((common-string-length |
| 4926 (if completion-base-size | 4926 (if completion-common-substring |
| 4927 (- (length mbuf-contents) completion-base-size) | 4927 (length completion-common-substring) |
| 4928 (length completion-common-substring))) | 4928 (- (length mbuf-contents) completion-base-size))) |
| 4929 (element-start (next-single-property-change | 4929 (element-start (next-single-property-change |
| 4930 (point-min) | 4930 (point-min) |
| 4931 'mouse-face)) | 4931 'mouse-face)) |
| 4932 (element-common-end | 4932 (element-common-end |
| 4933 (and element-start | 4933 (and element-start |