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

Revert last change.

Browse source
This commit is contained in:
Chong Yidong 2008-08-15 00:06:12 +00:00
parent 7ce8dff29a
commit b6bb817d39
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -697,9 +697,7 @@ considered."
(setq list (nreverse new)))) (setq list (nreverse new))))
(if (> (length list) 1) (if (> (length list) 1)
(with-output-to-temp-buffer "*Completions*" (with-output-to-temp-buffer "*Completions*"
(display-completion-list (display-completion-list list pattern))
list pattern
(- beg (field-beginning))))
;; Don't leave around a completions buffer that's ;; Don't leave around a completions buffer that's
;; out of date. ;; out of date.
(let ((win (get-buffer-window "*Completions*" 0))) (let ((win (get-buffer-window "*Completions*" 0)))