[Emacs-diffs] Changes to emacs/lisp/scroll-all.el

[Glenn Morris]

Index: emacs/lisp/scroll-all.el
diff -c emacs/lisp/scroll-all.el:1.10 emacs/lisp/scroll-all.el:1.11
*** emacs/lisp/scroll-all.el:1.10       Wed Apr 24 16:37:04 2002
--- emacs/lisp/scroll-all.el    Mon Jul 29 09:07:23 2002
***************
*** 125,136 ****
  (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))))
  
  (provide 'scroll-all)
  
--- 125,136 ----
  (defun scroll-all-mode (arg)
    "Toggle Scroll-All minor mode."
    (interactive "P")
!   (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)