(Fscroll_left, Fscroll_right): Doc fix.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3c8465320ab080208e9d24b7c9687b3265f2a556..d981b0b74e6052f83494f14261eeffb3432d2f23 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  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * keyboard.c (Finput_pending_p): Fix typo in doc-string.

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