diff options
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | 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,5 +1,13 @@ 2009-11-19 Juri Linkov <juri@jurta.org> + * 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 <juri@jurta.org> + * find-dired.el (find-name-arg): Remove autoload. (Bug#4387) * progmodes/grep.el (rgrep): Require `find-dired' for `find-name-arg'. 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. |