[Openmcl-cvs-notifications] r12696 - /trunk/source/cocoa-ide/hemlock/src/htext4.lisp

[rme at clozure.com]

Author: rme
Date: Wed Aug 26 16:37:01 2009
New Revision: 12696

Log:
In COPY-REGION: copy the first line's charprops to the end
of line, not to the charpos of the region's end mark.

For ticket:589.


Modified:
    trunk/source/cocoa-ide/hemlock/src/htext4.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/htext4.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/hemlock/src/htext4.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/htext4.lisp Wed Aug 26 16:37:01 2009
@@ -297,8 +297,7 @@
 	(declare (simple-string first-chars))
 	(%sp-byte-blt first-chars first-charpos chars 0 length)
         (setf (line-charprops-changes first-copied-line)
-              (copy-line-charprops first-line :start first-charpos
-                                   :end last-charpos))
+              (copy-line-charprops first-line :start first-charpos))
 	(do ((line (line-next first-line) (line-next line))
 	     (previous first-copied-line)
 	     (number line-increment (+ number line-increment)))