From 1fc051476607215c26a353e80b1f45b564415a4f Mon Sep 17 00:00:00 2001 From: forcer Date: Wed, 7 Jun 2006 20:35:00 +0000 Subject: Fix typo in emms-property-region darcs-hash:20060607203558-2189f-f2a8e6a89f4af46883dc23d656157bccd883db30.gz --- emms.el | 5 +++-- 1 file 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))))) -- cgit v1.2.3