From c484f866812f216018bc42b7a9e3124507afa948 Mon Sep 17 00:00:00 2001 From: Jorgen Schaefer Date: Sun, 24 Nov 2013 15:08:02 +0100 Subject: [PATCH] Scroll correct window when showing completion options. * minibuffer.el (completion--in-region-1): Scroll the correct window. (Bug#13898) --- lisp/ChangeLog | 5 +++++ lisp/minibuffer.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 707484734f4..286a32cbf7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-24 Jorgen Schaefer + + * minibuffer.el (completion--in-region-1): Scroll the correct + window. (Bug#13898) + 2013-11-24 Bozhidar Batsov * emacs-lisp/helpers.el: Add some string helpers. diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 0940e90212e..4f445855739 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1067,7 +1067,8 @@ scroll the window of possible completions." ;; If end is in view, scroll up to the beginning. (set-window-start window (point-min) nil) ;; Else scroll down one screen. - (scroll-other-window)) + (with-selected-window window + (scroll-up))) nil))) ;; If we're cycling, keep on cycling. ((and completion-cycling completion-all-sorted-completions) -- 2.39.2