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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c758da35931a6f26e58428bddb24b4be546022d4..10c4b139336656d67b7a4f594e86ece55e58266f 100644 (file)
--- 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 b1b03136a39fe1e73c326bd5d3856eda7f95da72..ac8ea6675fa40e79b0293146b0b6e7e97a6d12d7 100644 (file)
--- 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)))