home *** CD-ROM | disk | FTP | other *** search
/ Dream 49 / Amiga_Dream_49.iso / atari / texte / oribin.zoo / bindings / mt-fold.fun < prev    next >
Text File  |  1991-07-09  |  521b  |  28 lines
  1. {{{  comments
  2. ; simulate the tds-operations TOP and BOTTOM, which jump to top and bottom
  3. ; of currently OPENED fold.
  4. }}}
  5. nodup
  6. {{{  top
  7. (deffun mtool-top
  8.   (
  9.     if test-end-fold (O_UP) fi
  10.     while and(not(test-begin-fold),not(test-top)) (
  11.       if test-end-fold (mtool-top) fi
  12.       O_UP
  13.     )
  14.   )
  15. )
  16. }}}
  17. {{{  bot
  18. (deffun mtool-bot
  19.   (
  20.     if test-begin-fold (O_DOWN) fi
  21.     while and(not(test-end-fold),not(test-bottom)) (
  22.       if test-begin-fold (mtool-bot) fi
  23.       O_DOWN
  24.     )
  25.   )
  26. )
  27. }}}
  28.