/[emacs]/emacs/lisp/scroll-all.el
ViewVC logotype

Diff of /emacs/lisp/scroll-all.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.4.2 by gm, Mon May 27 20:59:48 2002 UTC revision 1.5.4.3 by gm, Mon Jul 29 12:57:31 2002 UTC
# Line 127  use either M-x customize or the function Line 127  use either M-x customize or the function
127  (defun scroll-all-mode (arg)  (defun scroll-all-mode (arg)
128    "Toggle Scroll-All minor mode."    "Toggle Scroll-All minor mode."
129    (interactive "P")    (interactive "P")
130    (setq scroll-all-mode (not scroll-all-mode))    (setq scroll-all-mode
131    (cond          (if (null arg) (not scroll-all-mode)
132     ((eq scroll-all-mode 't)            (> (prefix-numeric-value arg) 0)))
133      (add-hook 'post-command-hook 'scroll-all-check-to-scroll))    (if scroll-all-mode
134     ((eq scroll-all-mode 'nil)        (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
135      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))))      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))
136    
137  (provide 'scroll-all)  (provide 'scroll-all)
138    

Legend:
Removed from v.1.5.4.2  
changed lines
  Added in v.1.5.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26