Changeset 12804

Timestamp:

Sep 10, 2009, 6:58:48 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

set-charprops

File:

• trunk/source/cocoa-ide/hemlock/src/charprops.lisp (modified) (2 diffs)

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

@@ -561 +561 @@
       (next-charprops m :view view :filter filter))))
 
-#|
 (defun set-charprops (mark charprops &key (count 1 count-supplied-p)
-                           (end nil end-supplied-p) (filter charprops-names charprops))
+                           (end nil end-supplied-p) (filter (charprops-names charprops)))
   (declare (ignore filter end count charprops mark))
   (when (and count-supplied-p end-supplied-p)
@@ -573 +572 @@
       (move-mark end-mark end)
       (character-offset end-mark count))
-    (let* ((start-line (mark-line start-mark))
-           (start-charpos (mark-charpos start-mark))
-           (end-line (mark-line end-mark))
-           (end-charpos (mark-charpos end-mark)))
-      (cond ((eq start-line end-line)
-
-|#
+    ;; lame.
+    (loop for (k v) on charprops by #'cddr
+       do (set-charprop-value start-mark k v :end end-mark))))
 
 ;;; Return a list of charprops-change vectors that correspond to the lines