diff src/window.c @ 8059:59baddaf62a0

(Fother_window_for_scrolling): New function. (Fscroll_other_window): Use that. (syms_of_window): defsubr it. (Fsave_window_excursion): Doc fix.

--- 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;