[climacs-cvs] CVS climacs

[thenriksen]

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)))