Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv29556

Modified Files: rectangle.lisp Log Message: Fix regarding killing of rectangles across lines that are shorter than the width of the rectangle.

--- /project/climacs/cvsroot/climacs/rectangle.lisp 2006/09/04 09:00:30 1.1 +++ /project/climacs/cvsroot/climacs/rectangle.lisp 2006/09/09 18:21:40 1.2 @@ -76,7 +76,9 @@ (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)))