Mercurial > emacs
changeset 12483:ec77cb3940f1
(switch-to-completions): Make a completions window if none.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jul 1995 13:26:23 +0000 |
| parents | 3f4cd64a4730 |
| children | bf638e2849d5 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Fri Jul 07 13:25:47 1995 +0000 +++ b/lisp/simple.el Fri Jul 07 13:26:23 1995 +0000 @@ -2954,6 +2954,9 @@ (defun switch-to-completions () "Select the completion list window." (interactive) + ;; Make sure we have a completions window. + (or (get-buffer-window "*Completions*") + (minibuffer-completion-help)) (select-window (get-buffer-window "*Completions*")) (goto-char (point-min)) (search-forward "\n\n")