From 091b5fdbd802f60f2442dce3f9f85b8e81c948de Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 29 Jul 2002 13:08:44 +0000 Subject: [PATCH] (scroll-all-mode): Handle numeric arg. Use `if' instead of `cond'. --- lisp/ChangeLog | 5 +++++ lisp/scroll-all.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2269f368bc4..a940b813e9f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-29 John Paul Wallington + + * scroll-all.el (scroll-all-mode): Handle numeric arg. Use `if' + instead of `cond'. + 2002-07-29 Kenichi Handa * international/mule.el (ctext-post-read-conversion): Add support 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) -- 2.11.4.GIT