diff options
| author | Richard M. Stallman | 1995-07-07 13:26:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-07-07 13:26:23 +0000 |
| commit | 9595fbdb9a5a0e49a849bedd9b2b1106b39de71d (patch) | |
| tree | b453e8a4c0d2e4ea6ad564a4126dab0fc399a9b3 | |
| parent | f457383941d94c22eca32d89a0b7934c09ee13d3 (diff) | |
| download | emacs-9595fbdb9a5a0e49a849bedd9b2b1106b39de71d.tar.gz emacs-9595fbdb9a5a0e49a849bedd9b2b1106b39de71d.zip | |
(switch-to-completions): Make a completions window if none.
| -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") |