Debug message fix

[sxemacs] / lisp / extents.el

diff --git a/lisp/extents.el b/lisp/extents.el
index a2fbc3d..8f858ed 100644 (file)
--- a/lisp/extents.el
+++ b/lisp/extents.el
@@ -43,16 +43,16 @@ PROPERTY, and VALUE may also be used to control the extents passed to
 PREDICATE or FUNCTION.  See also `map-extents'."
   (let (*result*)
     (map-extents (if predicate
-                     #'(lambda (ex junk)
-                         (and (funcall predicate ex)
-                              (setq *result* (cons (funcall function ex)
-                                                   *result*)))
-                         nil)
-                   #'(lambda (ex junk)
-                         (setq *result* (cons (funcall function ex)
-                                              *result*))
-                         nil))
-                 buffer-or-string from to nil flags property value)
+                    #'(lambda (ex junk)
+                        (and (funcall predicate ex)
+                             (setq *result* (cons (funcall function ex)
+                                                  *result*)))
+                        nil)
+                  #'(lambda (ex junk)
+                        (setq *result* (cons (funcall function ex)
+                                             *result*))
+                        nil))
+                buffer-or-string from to nil flags property value)
     (nreverse *result*)))
 
 (defun extent-list (&optional buffer-or-string from to flags property value)