Fix typo in emms-property-region

darcs-hash:20060607203558-2189f-f2a8e6a89f4af46883dc23d656157bccd883db30.gz

1 files changed, 3 insertions, 2 deletions

diff --git a/emms.el b/emms.el
index d9269bb..1b81888 100644
--- a/emms.el
+++ b/emms.el
@@ -1026,8 +1026,9 @@ ignore this."
 ;;; Helper functions
 (defun emms-property-region (pos prop)
   "Return a pair of the beginning and end of the property PROP at POS."
-  (let ((begin (next-single-property-change pos prop))
-        (end (previous-single-property-change pos prop)))
+  ;; This +/-1 stuff DTRT, but _is_ it TRT?
+  (let ((begin (previous-single-property-change (+ pos 1) prop))
+        (end (next-single-property-change (- pos 1) prop)))
     (cons (or begin (point-min))
           (or end (point-max)))))