(call-interactively 'scroll-all-beginning-of-buffer-all))
((eq this-command 'end-of-buffer)
(call-interactively 'scroll-all-end-of-buffer-all))))
-
+
;;;###autoload
(define-minor-mode scroll-all-mode
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)))