[slime-devel] slime-property-bounds

[Andras Simon]

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