; (c) 1992 J.Harper
; macros for actually inserting tabs -- not just moving the cursor

(macro `instab'
{
    (local `spc' (- (getpref `tabsize') (% (- (info `col') 1) (getpref `tabsize'))))
    (while {(spc)}
    {
	(insert `s' ` ')
	(= `spc' (- (spc) 1))
    })
})

(macro `bstab'
{
    (local `len' (- (getpref `tabsize') (% (- (info `col') 1) (getpref `tabsize'))))
    (while {(len)}
    {
	(delete `p')
	(= `len' (- (len) 1))
    })
})