Mercurial > emacs
comparison lisp/simple.el @ 20663:2483aa76b98d
(switch-to-completions): If no completions window,
don't try to switch to it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 18 Jan 1998 03:32:20 +0000 |
| parents | d175ee25287e |
| children | 290a1c16d25d |
comparison
equal
deleted
inserted
replaced
| 20662:910d4cdbf81f | 20663:2483aa76b98d |
|---|---|
| 3607 "Select the completion list window." | 3607 "Select the completion list window." |
| 3608 (interactive) | 3608 (interactive) |
| 3609 ;; Make sure we have a completions window. | 3609 ;; Make sure we have a completions window. |
| 3610 (or (get-buffer-window "*Completions*") | 3610 (or (get-buffer-window "*Completions*") |
| 3611 (minibuffer-completion-help)) | 3611 (minibuffer-completion-help)) |
| 3612 (select-window (get-buffer-window "*Completions*")) | 3612 (let ((window (get-buffer-window "*Completions*"))) |
| 3613 (goto-char (point-min)) | 3613 (when window |
| 3614 (search-forward "\n\n") | 3614 (select-window window) |
| 3615 (forward-line 1)) | 3615 (goto-char (point-min)) |
| 3616 (search-forward "\n\n") | |
| 3617 (forward-line 1)))) | |
| 3616 | 3618 |
| 3617 ;; Support keyboard commands to turn on various modifiers. | 3619 ;; Support keyboard commands to turn on various modifiers. |
| 3618 | 3620 |
| 3619 ;; These functions -- which are not commands -- each add one modifier | 3621 ;; These functions -- which are not commands -- each add one modifier |
| 3620 ;; to the following event. | 3622 ;; to the following event. |