home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / mg-3b.lha / mg-3b / REXX / region.mg < prev    next >
Encoding:
Text File  |  1990-06-02  |  437 b   |  20 lines
  1. /* Exercise the rexx-region command */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-region' region
  6.  
  7. /* Now, change to an alternate buffer, and delete all text in it */
  8. 'switch-to-buffer-other-window region-test-output'
  9. 'end-of-buffer'
  10. 'beginning-of-buffer'
  11. 'kill-region'
  12.  
  13. /* Put the region from the other buffer into the current buffer */
  14. 'rexx-insert "We got' region.0 'lines!\n"'
  15.  
  16. do i = 1 to region.0
  17.     'rexx-insert 'slashquote(region.i, '\')
  18.     end
  19. exit 0
  20.