From 51856975251c32460037f0f762b3bf357fc92ee5 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sun, 6 Sep 2009 12:58:28 +0000
Subject: Fix pareno

---
 lib/span.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/span.el b/lib/span.el
index 3e88f7ca..4c83baa0 100644
--- a/lib/span.el
+++ b/lib/span.el
@@ -72,7 +72,8 @@ Optional argument FUN is used in place of `span-give-warning'."
     (if (null prop) 
 	(overlays-at pt)
       (dolist (ol (overlays-at pt))
-	(if (overlay-get ol prop) (push ol ols)))
+	(if (overlay-get ol prop) 
+	    (push ol ols)))
       ols)))
 
 (defsubst spans-at-region-prop (start end prop)
@@ -82,8 +83,8 @@ Optional argument FUN is used in place of `span-give-warning'."
 	(overlays-in start end)
       (dolist (ol (overlays-in start end))
 	(if (overlay-get ol prop)
-	    (push ol ols))
-	ols))))
+	    (push ol ols)))
+      ols)))
 
 (defsubst span-at (pt prop)
   "Return some SPAN at point PT with property PROP."
-- 
cgit v1.2.3