diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-02-28 18:31:05 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-02-28 18:31:05 -0800 |
| commit | b829360f5052d532a00f4693f9ca6494a348449e (patch) | |
| tree | 4a69d121129eaabef08afa3cd76e6730387a20ce /lisp/comint.el | |
| parent | 5c410a9b800eeb93c58945dec0387697108ad5e2 (diff) | |
| download | emacs-b829360f5052d532a00f4693f9ca6494a348449e.tar.gz | |
Replace some uses of obsolete argument of display-completion-list
* lisp/minibuffer.el (completion-hilit-commonality):
Make `base-size' argument optional. Short-cut if `prefix-len' is 0.
* lisp/comint.el (comint-dynamic-list-completions): Doc fix.
* lisp/comint.el (comint-dynamic-list-completions):
* lisp/filecache.el (file-cache-minibuffer-complete):
* lisp/tempo.el (tempo-display-completions):
* lisp/eshell/em-hist.el (eshell-list-history):
Replace use of obsolete argument of display-completion-list.
* lisp/tempo.el: Use utf-8 for author name.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 8faa5243a11..76b1d803877 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -3274,8 +3274,12 @@ See also `comint-dynamic-complete-filename'." (defun comint-dynamic-list-completions (completions &optional common-substring) "Display a list of sorted COMPLETIONS. -The meaning of COMMON-SUBSTRING is the same as in `display-completion-list'. -Typing SPC flushes the completions buffer." +Typing SPC flushes the completions buffer. + +The optional argument COMMON-SUBSTRING, if non-nil, should be a string +specifying a common substring for adding the faces +`completions-first-difference' and `completions-common-part' to +the completions." (let ((window (get-buffer-window "*Completions*" 0))) (setq completions (sort completions 'string-lessp)) (if (and (eq last-command this-command) @@ -3306,7 +3310,8 @@ Typing SPC flushes the completions buffer." (setq comint-dynamic-list-completions-config (current-window-configuration)) (with-output-to-temp-buffer "*Completions*" - (display-completion-list completions common-substring)) + (display-completion-list + (completion-hilit-commonality completions (length common-substring)))) (if (window-minibuffer-p) (minibuffer-message "Type space to flush; repeat completion command to scroll") (message "Type space to flush; repeat completion command to scroll"))) |