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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a940b813e9f1a618fe52241d261613ca2b4bc0f1..d4199273493964a3f20924ae59a295bfc18c1907 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 9092cfa75250d7e61ff4711165a321038c887dcd..734a83baceff439dd79dc51ca725e432ef3692c5 100644 (file)
--- 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)