(Fother_window_for_scrolling): New function.

(Fscroll_other_window): Use that.
(syms_of_window): defsubr it.

(Fsave_window_excursion): Doc fix.

diff --git a/src/window.c b/src/window.c
index 347a1f5ec95b113e59134eafa70ca4c64e8e6883..0770c44e9d51bb53fcee28f4915d362131485a7a 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -2348,6 +2348,7 @@ If in the minibuffer, `minibuffer-scroll-window' if non-nil\n\
 specifies the window.\n\
 If `other-window-scroll-buffer' is non-nil, a window\n\
 showing that buffer is used.")
+  ()
 {
   Lisp_Object window;
 
@@ -2984,8 +2985,10 @@ redirection (see `redirect-frame-focus').")
 DEFUN ("save-window-excursion", Fsave_window_excursion, Ssave_window_excursion,
   0, UNEVALLED, 0,
   "Execute body, preserving window sizes and contents.\n\
-Restores which buffer appears in which window, where display starts,\n\
-as well as the current buffer.\n\
+Restore which buffer appears in which window, where display starts,\n\
+and the value of point and mark for each window.\n\
+Also restore which buffer is current.\n\
+But do not preserve point in the current buffer.\n\
 Does not restore the value of point in current buffer.")
   (args)
      Lisp_Object args;