From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 29 Oct 2001 19:00:06 +0000 (+0000)
Subject: (Fscroll_left, Fscroll_right): Doc fix.
X-Git-Tag: emacs-21.2~419
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33c35d79588f9067c19db2197d5eb6e679246bb5;p=emacs.git

(Fscroll_left, Fscroll_right): Doc fix.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 16942091754..222abb71b14 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  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 b99d48b9c85..38f9d772e4e 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4430,7 +4430,13 @@ showing that buffer, popping the buffer up if necessary.")
 
 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;
 {