home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34exe.zip / mutt / misc / sscroll.mut < prev    next >
Text File  |  1995-01-14  |  335b  |  19 lines
  1.   ;; C Durland    Public Domain
  2. (defun
  3.   smooth-scroll-up
  4.   {
  5.     (if (== 1 (window-row)) (scroll-up))
  6.     (previous-line)
  7.   }
  8.   smooth-scroll-down
  9.   {
  10.     (if (== (window-row)(window-height -1)) (scroll-down))
  11.     (next-line)
  12.   }
  13.   MAIN
  14.   {
  15.     (bind-to-key "smooth-scroll-up"   "F-C")
  16.     (bind-to-key "smooth-scroll-down" "F-D")
  17.   }
  18. )
  19.