Add set-bullet-type procedure.