(scroll-all-mode): Make argument optional. Add to doc string.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a940b813e9f..d4199273493 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-29  Glenn Morris  <gmorris@ast.cam.ac.uk>
+
+        * scroll-all.el (scroll-all-mode): Make argument optional.  Doc fix.
+
 2002-07-29  John Paul Wallington  <jpw@shootybangbang.com>
 
         * scroll-all.el (scroll-all-mode): Handle numeric arg.  Use `if'
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 9092cfa7525..734a83bacef 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -122,8 +122,11 @@ use either \\[customize] or the function `scroll-all-mode'."
  
 
 ;;;###autoload
-(defun scroll-all-mode (arg)
-  "Toggle Scroll-All minor mode."
+(defun scroll-all-mode (&optional arg)
+  "Toggle Scroll-All minor mode.
+With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise.
+When Scroll-All mode is on, scrolling commands entered in one window
+apply to all visible windows in the same frame."
   (interactive "P")
   (setq scroll-all-mode
         (if (null arg) (not scroll-all-mode)