Scroll correct window when showing completion options.

* minibuffer.el (completion--in-region-1): Scroll the correct
window. (Bug#13898)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 707484734f4859d06d038791cdc08b5de7726946..286a32cbf7dfedbfc3592bb5e38ab8ac341d066a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-24  Jorgen Schaefer  <contact@jorgenschaefer.de>
+
+       * minibuffer.el (completion--in-region-1): Scroll the correct
+       window. (Bug#13898)
+
 2013-11-24  Bozhidar Batsov  <bozhidar@batsov.com>
 
        * emacs-lisp/helpers.el: Add some string helpers.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 0940e90212e69eca5e0b3ffbaf0c573d761ad3f4..4f445855739849093ccdc48c6d67530e311f9241 100644 (file)
--- 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)