Changeset 12696

Timestamp:

Aug 26, 2009, 1:37:01 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

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.

File:

• trunk/source/cocoa-ide/hemlock/src/htext4.lisp (modified) (1 diff)

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

@@ -302 +302 @@
         (%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)