125 |
(defun scroll-all-mode (arg) |
(defun scroll-all-mode (arg) |
126 |
"Toggle Scroll-All minor mode." |
"Toggle Scroll-All minor mode." |
127 |
(interactive "P") |
(interactive "P") |
128 |
(setq scroll-all-mode (not scroll-all-mode)) |
(setq scroll-all-mode |
129 |
(cond |
(if (null arg) (not scroll-all-mode) |
130 |
((eq scroll-all-mode 't) |
(> (prefix-numeric-value arg) 0))) |
131 |
(add-hook 'post-command-hook 'scroll-all-check-to-scroll)) |
(if scroll-all-mode |
132 |
((eq scroll-all-mode 'nil) |
(add-hook 'post-command-hook 'scroll-all-check-to-scroll) |
133 |
(remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))) |
(remove-hook 'post-command-hook 'scroll-all-check-to-scroll))) |
134 |
|
|
135 |
(provide 'scroll-all) |
(provide 'scroll-all) |
136 |
|
|