Shouldn't slime-property-bounds look like this?
diff -u -r1.506 slime.el --- slime.el 3 Jun 2005 20:00:11 -0000 1.506 +++ slime.el 5 Jun 2005 20:29:56 -0000 @@ -3202,12 +3202,12 @@ ;; forward one char to avoid doing the wrong thing if ;; we're at the beginning of the old input. -luke ;; (18/Jun/2004) - (unless (not (get-text-property (point) 'slime-repl-old-output)) + (unless (not (get-text-property (point) prop)) ;alanr unless we are sitting right after it May 19, 2005 (ignore-errors (forward-char))) (previous-single-char-property-change (point) prop))) (end (save-excursion - (if (get-text-property (point) 'slime-repl-old-output) + (if (get-text-property (point) prop) (progn (goto-char (next-single-char-property-change (point) prop)) (skip-chars-backward "\n \t\r" beg) (point))
Right now, only the part of old input before the point is copied.
Andras