class RDoc::Markup::Parser

def build_paragraph margin
  p :paragraph_start => margin if @debug
  paragraph = RDoc::Markup::Paragraph.new
  until @tokens.empty? do
    type, data, column, = get
    case type
    when :INDENT then
      next if data == margin and peek_token[0] == :TEXT
      unget
      break
    when :TEXT then
      if column != margin then
        unget
        break
      end
      paragraph << data
      skip :NEWLINE
    else
      unget
      break
    end
  end
  p :paragraph_end => margin if @debug
  paragraph
end