Changeset 12540


Ignore:
Timestamp:
Aug 6, 2009, 3:27:21 AM (10 years ago)
Author:
rme
Message:

charprops support in delete-and-save-region.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/htext4.lisp

    r12290 r12540  
    180180                          (new-line (make-line
    181181                                     :chars new-chars  :number 0
     182                                     :charprops-changes
     183                                     (copy-line-charprops first-line
     184                                                          :start first-charpos
     185                                                          :end last-charpos)
    182186                                     :%buffer (next-disembodied-buffer-counter))))
    183187                     (declare (simple-string new-chars))
    184188                     (%sp-byte-blt (current-open-chars) (current-right-open-pos) new-chars 0 num)
    185189                     (setf (current-right-open-pos) new-right)
    186                      ;; and fix up any marks in there:
     190                     ;; and fix up any charprops or marks in there:
     191                     (delete-line-charprops first-line :start first-charpos
     192                                            :end last-charpos)
    187193                     (move-some-marks (charpos first-line)
    188194                                      (if (> charpos first-charpos)
Note: See TracChangeset for help on using the changeset viewer.