# BlockQuote

## Name

Block Quote

## Category

Format

## Notation

- Markdown
- PukiWiki
- Text

## Shortcut

## Code

```pascal
var BB := Editor.BlockBegin;
var BE := Editor.BlockEnd;

Editor.BeginUndoBlock;
try
  var EndLine := BE.Y;
  if (BE.X = 1) and (BB.Y < BE.Y) then
    Dec(EndLine);

  for var I := BB.Y to EndLine do
  begin
    Editor.SetLine(I, '> ' + Editor.GetLine(I));
  end;
finally
  Editor.EndUndoBlock;
end;
```
