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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c67185f112952d4923ed16b43c811f922157b44a..97a1610dcda0c3786393d23b52d080bc4ec193d7 100644 (file)
--- 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 21f6e6b9c390291e1bd4277c75f46de62d8d20fd..9b2b0e86f852c812e7a696b78e9d6d881df96e1d 100644 (file)
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -124,8 +124,11 @@ use either M-x 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)