/[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.10 by gm, Wed Apr 24 20:37:04 2002 UTC revision 1.11 by gm, Mon Jul 29 13:07:23 2002 UTC
# Line 125  use either \\[customize] or the function Line 125  use either \\[customize] or the function
125  (defun scroll-all-mode (arg)  (defun scroll-all-mode (arg)
126    "Toggle Scroll-All minor mode."    "Toggle Scroll-All minor mode."
127    (interactive "P")    (interactive "P")
128    (setq scroll-all-mode (not scroll-all-mode))    (setq scroll-all-mode
129    (cond          (if (null arg) (not scroll-all-mode)
130     ((eq scroll-all-mode 't)            (> (prefix-numeric-value arg) 0)))
131      (add-hook 'post-command-hook 'scroll-all-check-to-scroll))    (if scroll-all-mode
132     ((eq scroll-all-mode 'nil)        (add-hook 'post-command-hook 'scroll-all-check-to-scroll)
133      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll))))      (remove-hook 'post-command-hook 'scroll-all-check-to-scroll)))
134    
135  (provide 'scroll-all)  (provide 'scroll-all)
136    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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