From 042b7cc622ea041e7c06e9e467110b7a8f6e5f50 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 19 Nov 2009 17:40:14 +0000 Subject: [PATCH] (switch-to-completions): Move point to the first completion when point was at the beginning of the buffer. --- lisp/ChangeLog | 8 ++++++++ lisp/simple.el | 9 +++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9249454f5bd..741a72dd6e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2009-11-19 Juri Linkov + + * minibuffer.el (completions-format): New defcustom. + (completion--insert-strings): Implement vertical format. + + * simple.el (switch-to-completions): Move point to the first + completion when point was at the beginning of the buffer. + 2009-11-19 Juri Linkov * find-dired.el (find-name-arg): Remove autoload. (Bug#4387) diff --git a/lisp/simple.el b/lisp/simple.el index 87e65eebce8..23811ad80fc 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -6032,14 +6032,15 @@ select the completion near point.\n\n")))))) "Select the completion list window." (interactive) (let ((window (or (get-buffer-window "*Completions*" 0) - ;; Make sure we have a completions window. + ;; Make sure we have a completions window. (progn (minibuffer-completion-help) (get-buffer-window "*Completions*" 0))))) (when window (select-window window) - (goto-char (point-min)) - (search-forward "\n\n" nil t) - (forward-line 1)))) + ;; In the new buffer, go to the first completion. + ;; FIXME: Perhaps this should be done in `minibuffer-completion-help'. + (when (bobp) + (next-completion 1))))) ;;; Support keyboard commands to turn on various modifiers. -- 2.39.5