(Fscroll_left, Fscroll_right): Doc fix.

2 files changed, 18 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 3c8465320ab..d981b0b74e6 100644
--- 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,Bm(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 303c06c8845..0c095c1a826 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4404,7 +4404,13 @@ showing that buffer, popping the buffer up if necessary.  */)
 
 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;
 {