! These procedures allow setting the left and right margins of the current
! buffer to the current cursor column.
!
PROCEDURE lsi_set_left_margin
LOCAL current_rm;
current_rm := GET_INFO (CURRENT_BUFFER, "right_margin");
SET (MARGINS, CURRENT_BUFFER, CURRENT_COLUMN, current_rm);
ENDPROCEDURE;

PROCEDURE lsi_set_right_margin
LOCAL current_lm;
current_lm := GET_INFO (CURRENT_BUFFER, "left_margin");
SET (MARGINS, CURRENT_BUFFER, current_lm, CURRENT_COLUMN);
ENDPROCEDURE;