/* Exercise the rexx-region command */

options failat 2

'rexx-region' region

/* Now, change to an alternate buffer, and delete all text in it */
'switch-to-buffer-other-window region-test-output'
'end-of-buffer'
'beginning-of-buffer'
'kill-region'

/* Put the region from the other buffer into the current buffer */
'rexx-insert "We got' region.0 'lines!\n"'

do i = 1 to region.0
	'rexx-insert 'slashquote(region.i, '\')
	end
exit 0