(scroll-all-mode): Move arg LIGHTER to the right place.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c758da35931..10c4b139336 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-23   Markus Rost  <rost@math.ohio-state.edu>
+
+        * scroll-all.el (scroll-all-mode): Move arg LIGHTER to the right
+        place.
+
 2002-11-21  Nick Roberts  <nick@nick.uklinux.net>
 
         * gdb-ui.el : General tidying. Patches from Stefan Monnier.
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index b1b03136a39..ac8ea6675fa 100644
--- a/lisp/scroll-all.el
+++ b/lisp/scroll-all.el
@@ -102,12 +102,13 @@
  
 
 ;;;###autoload
-(define-minor-mode scroll-all-mode " *SL*"
+(define-minor-mode scroll-all-mode
   "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."
- :global t
+  nil " *SL*" nil
+  :global t
   (if scroll-all-mode
       (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
     (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))