]> git.eshelyaron.com Git - emacs.git/commitdiff
(scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'.
authorGlenn Morris <rgm@gnu.org>
Mon, 29 Jul 2002 12:57:31 +0000 (12:57 +0000)
committerGlenn Morris <rgm@gnu.org>
Mon, 29 Jul 2002 12:57:31 +0000 (12:57 +0000)
lisp/scroll-all.el

index b5ab1316b4c7d1ebe6ef4f46e0e27ab581aafe59..21f6e6b9c390291e1bd4277c75f46de62d8d20fd 100644 (file)
@@ -127,12 +127,12 @@ use either M-x 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)