diff options
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index e5eb212fe46..e1d9b012cfc 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2954,6 +2954,9 @@ select the completion near point.\n\n")) | |||
| 2954 | (defun switch-to-completions () | 2954 | (defun switch-to-completions () |
| 2955 | "Select the completion list window." | 2955 | "Select the completion list window." |
| 2956 | (interactive) | 2956 | (interactive) |
| 2957 | ;; Make sure we have a completions window. | ||
| 2958 | (or (get-buffer-window "*Completions*") | ||
| 2959 | (minibuffer-completion-help)) | ||
| 2957 | (select-window (get-buffer-window "*Completions*")) | 2960 | (select-window (get-buffer-window "*Completions*")) |
| 2958 | (goto-char (point-min)) | 2961 | (goto-char (point-min)) |
| 2959 | (search-forward "\n\n") | 2962 | (search-forward "\n\n") |