Commit d9e81879 authored by Troels Henriksen's avatar Troels Henriksen

Fix regarding killing of rectangles across lines that are shorter than

the width of the rectangle.
parent 46450e9b
......@@ -76,7 +76,9 @@ characters."
(let ((str (concatenate 'string (buffer-substring (buffer mark)
(offset start-mark)
(offset end-mark))
(make-string (- endcol (column-number end-mark)) :initial-element #\Space))))
(make-string (- (- endcol startcol)
(- (column-number end-mark) (column-number start-mark)))
:initial-element #\Space))))
(delete-range start-mark (- (offset end-mark) (offset start-mark)))
str)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment