Index: /trunk/source/cocoa-ide/hemlock/src/charprops.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 12803)
+++ /trunk/source/cocoa-ide/hemlock/src/charprops.lisp	(revision 12804)
@@ -561,7 +561,6 @@
       (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,11 +572,7 @@
       (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