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. |