From 1492a2e4757dac1c5ccb3b385c033bf48093cbd3 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Wed, 10 Mar 2004 15:13:43 +0000
Subject: modification to avoid compile warnings (end) + some menu
 modifications

---
 generic/span-overlay.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'generic/span-overlay.el')

diff --git a/generic/span-overlay.el b/generic/span-overlay.el
index 36a04458..e22c38a4 100644
--- a/generic/span-overlay.el
+++ b/generic/span-overlay.el
@@ -232,7 +232,7 @@ Re-attaches SPAN if it was removed from the buffer."
 
 (defsubst mapcar-spans (fn start end prop &optional val)
   "Apply function FN to all spans between START and END with property PROP set"
-  (mapcar fn (spans-at-region-prop start end prop val)))
+  (mapcar fn (spans-at-region-prop start end prop (or val nil))))
 
 (defun map-spans-aux (f l)
   (cond (l (cons (funcall f l) (map-spans-aux f (span-property l 'before))))
-- 
cgit v1.2.3