!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  TPU procedures to INDENT/OUTDENT the left margins in multiples of
!  4 columns, starting in column 9 if the current left-margin is in
!  columns 1-5 on indent, and reversing this for outdent.
!  Also to SET LEFT MARGIN at current column
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROCEDURE	cjc_indent

LOCAL	left_marg_indent ;

	left_marg_indent  :=  get_info ( current_buffer , "left_margin" ) ;

	if ( left_marg_indent > 6 )  then
	       	left_marg_indent  :=  left_marg_indent + 4 ;
	else	left_marg_indent  :=  9 ;
	endif ;

	set 	( 	
		MARGINS ,
		CURRENT_BUFFER ,
		left_marg_indent ,
		get_info ( current_buffer , "right_margin" )
		) ;

	message ( " left_marg_indent margin set at "
		+ str ( left_marg_indent ) ) ;
	
        return ;
	
ENDPROCEDURE ;





PROCEDURE	cjc_outdent

LOCAL	left_marg_indent ;

	left_marg_indent  :=  get_info ( current_buffer , "left_margin" ) ;

	if ( left_marg_indent > 9 )  then
	       	left_marg_indent  :=  left_marg_indent - 4 ;
	else	left_marg_indent  :=  1 ;
	endif ;

	set 	( 	
		MARGINS ,
		CURRENT_BUFFER ,
		left_marg_indent ,
		get_info ( current_buffer , "right_margin" )
		) ;

	message ( " left margin set at "
		+ str ( left_marg_indent ) ) ;
	
        return ;

ENDPROCEDURE ;




PROCEDURE	cjc_set_leftmargin_here ;

set ( MARGINS , current_buffer ,
	get_info ( current_window , "current_column" ) ,
	get_info ( current_buffer , "right_margin" ) ) ;

message ( "LEFT MARGIN set to "  +
	str ( 	get_info ( current_window , "current_column" ) ) ) ;



ENDPROCEDURE;