diff options
| author | Markus Rost <[email protected]> | 2002-11-23 03:26:24 +0000 |
|---|---|---|
| committer | Markus Rost <[email protected]> | 2002-11-23 03:26:24 +0000 |
| commit | 3ff2317b2f52f33cd6d99a181da2b7c2b7fc3e9d (patch) | |
| tree | e867c577528499c929ede544fab9ff1b3c9a62cb | |
| parent | ddff27f94ed85882b49fed090571b55e3042d680 (diff) | |
(scroll-all-mode): Add groups.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/scroll-all.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10c4b13933..06e9ed1158 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,7 @@ 2002-11-23 Markus Rost <[email protected]> * scroll-all.el (scroll-all-mode): Move arg LIGHTER to the right - place. + place. Add groups. 2002-11-21 Nick Roberts <[email protected]> diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index ac8ea6675f..c17b251353 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -109,6 +109,8 @@ When Scroll-All mode is on, scrolling commands entered in one window apply to all visible windows in the same frame." nil " *SL*" nil :global t + :group 'windows + :group 'scrolling (if scroll-all-mode (add-hook 'post-command-hook 'scroll-all-check-to-scroll) (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))) |