(scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2269f368bc4328ab0d5f7060eb179e448ba6c349..a940b813e9f1a618fe52241d261613ca2b4bc0f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-29  John Paul Wallington  <jpw@shootybangbang.com>
+
+       * scroll-all.el (scroll-all-mode): Handle numeric arg.  Use `if'
+       instead of `cond'.
+
 2002-07-29  Kenichi Handa  <handa@etl.go.jp>
 
        * international/mule.el (ctext-post-read-conversion): Add support

diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el
index 4548f954a7a80453ff80f46eec3e56a9f41c7d77..9092cfa75250d7e61ff4711165a321038c887dcd 100644 (file)
--- 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)