procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-complete-symbol): Supply match-size to display-completion-list.

Browse source
This commit is contained in:
Chong Yidong 2008-08-14 23:44:14 +00:00
parent 42e2427ae3
commit d478606111
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/emacs-lisp/lisp.el
View file

@ -687,18 +687,19 @@ considered."
(message "Making completion list..."))
(let ((list (all-completions pattern obarray predicate)))
(setq list (sort list 'string<))
(or (eq predicate 'fboundp)
(let (new)
(while list
(setq new (cons (if (fboundp (intern (car list)))
(list (car list) " <f>")
(car list))
new))
(setq list (cdr list)))
(setq list (nreverse new))))
(unless (eq predicate 'fboundp)
(let (new)
(dolist (compl list)
(push (if (fboundp (intern compl))
(list compl " <f>")
compl)
new))
(setq list (nreverse new))))
(if (> (length list) 1)
(with-output-to-temp-buffer "*Completions*"
(display-completion-list list pattern))
(display-completion-list
list pattern
(- beg (field-beginning))))
;; Don't leave around a completions buffer that's
;; out of date.
(let ((win (get-buffer-window "*Completions*" 0)))