[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/scroll-all.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/scroll-all.el |
Date: |
Mon, 29 Jul 2002 09:07:23 -0400 |
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)