Changeset 12804


Ignore:
Timestamp:
Sep 10, 2009, 1:58:48 PM (10 years ago)
Author:
rme
Message:

set-charprops

File:
1 edited

Legend:

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

    r12701 r12804  
    561561      (next-charprops m :view view :filter filter))))
    562562
    563 #|
    564563(defun set-charprops (mark charprops &key (count 1 count-supplied-p)
    565                            (end nil end-supplied-p) (filter charprops-names charprops))
     564                           (end nil end-supplied-p) (filter (charprops-names charprops)))
    566565  (declare (ignore filter end count charprops mark))
    567566  (when (and count-supplied-p end-supplied-p)
     
    573572      (move-mark end-mark end)
    574573      (character-offset end-mark count))
    575     (let* ((start-line (mark-line start-mark))
    576            (start-charpos (mark-charpos start-mark))
    577            (end-line (mark-line end-mark))
    578            (end-charpos (mark-charpos end-mark)))
    579       (cond ((eq start-line end-line)
    580 
    581 |#
     574    ;; lame.
     575    (loop for (k v) on charprops by #'cddr
     576       do (set-charprop-value start-mark k v :end end-mark))))
    582577
    583578;;; Return a list of charprops-change vectors that correspond to the lines
Note: See TracChangeset for help on using the changeset viewer.