diff options
Diffstat (limited to 'lisp/scroll-all.el')
| -rw-r--r-- | lisp/scroll-all.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 4548f954a7a..9092cfa7525 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -125,12 +125,12 @@ use either \\[customize] or the function `scroll-all-mode'." (defun scroll-all-mode (arg) "Toggle Scroll-All minor mode." (interactive "P") - (setq scroll-all-mode (not scroll-all-mode)) - (cond - ((eq scroll-all-mode 't) - (add-hook 'post-command-hook 'scroll-all-check-to-scroll)) - ((eq scroll-all-mode 'nil) - (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))) + (setq scroll-all-mode + (if (null arg) (not scroll-all-mode) + (> (prefix-numeric-value arg) 0))) + (if scroll-all-mode + (add-hook 'post-command-hook 'scroll-all-check-to-scroll) + (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))) (provide 'scroll-all) |