(Fscroll_left, Fscroll_right): Doc fix.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1694209175484b82fe5923677d3fd9e9dd508eeb..222abb71b146a39bc4839feac9d2277d141b6c62 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-29  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * window.c (Fscroll_left, Fscroll_right): Doc fix.
+
 2001-10-29  Gerd Moellmann  <gerd@gnu.org>
 
        * xterm.c (x_display_and_set_cursor): If cursor_in_echo_area,

diff --git a/src/window.c b/src/window.c
index b99d48b9c85eea408c92140a3a2652db1716fdc4..38f9d772e4ec45f332214827a3b65148b7c018cb 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -4430,7 +4430,13 @@ showing that buffer, popping the buffer up if necessary.")
 \f
 DEFUN ("scroll-left", Fscroll_left, Sscroll_left, 0, 1, "P",
   "Scroll selected window display ARG columns left.\n\
-Default for ARG is window width minus 2.")
+Default for ARG is window width minus 2.\n\
+Value is the total amount of leftward horizontal scrolling in\n\
+effect after the change.\n\
+If `automatic-hscrolling' is non-nil, the argument ARG modifies\n\
+a lower bound for automatic scrolling, i.e. automatic scrolling\n\
+will not scroll a window to a column less than the value returned\n\
+by this function.")
   (arg)
      register Lisp_Object arg;
 {
@@ -4454,7 +4460,13 @@ Default for ARG is window width minus 2.")
 
 DEFUN ("scroll-right", Fscroll_right, Sscroll_right, 0, 1, "P",
   "Scroll selected window display ARG columns right.\n\
-Default for ARG is window width minus 2.")
+Default for ARG is window width minus 2.\n\
+Value is the total amount of leftward horizontal scrolling in\n\
+effect after the change.\n\
+If `automatic-hscrolling' is non-nil, the argument ARG modifies\n\
+a lower bound for automatic scrolling, i.e. automatic scrolling\n\
+will not scroll a window to a column less than the value returned\n\
+by this function.")
   (arg)
      register Lisp_Object arg;
 {