# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772571309 0
# Node ID 59baddaf62a0d1765817fada56c4be9295cab369
# Parent  671738c86a82f8e3dd21d0ed431862d90d650e8d
(Fother_window_for_scrolling): New function.
(Fscroll_other_window): Use that.
(syms_of_window): defsubr it.

(Fsave_window_excursion): Doc fix.

diff -r 671738c86a82 -r 59baddaf62a0 src/window.c
--- a/src/window.c	Sat Jun 25 19:07:17 1994 +0000
+++ b/src/window.c	Sat Jun 25 19:08:29 1994 +0000
@@ -2348,6 +2348,7 @@
 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 @@
 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;