--- xemacs-edit-utils-2.24/lisp/edit-utils/setnu.el..setnu	2002-07-24 22:36:50 +0400
+++ xemacs-edit-utils-2.24/lisp/edit-utils/setnu.el	2005-11-07 16:51:16 +0300
@@ -340,7 +340,15 @@
     (setnu-set-extent-property e 'evaporate nil)
     e ))
 
-(cond ((fboundp 'overlays-in) ;; expect to see this in 19.30
+(cond ((fboundp 'map-extents)
+	(defun setnu-extent-at (pos buf)
+	  "Finds the setnu extent at the position POS in the buffer BUF."
+	  (map-extents (function (lambda (e maparg)
+				   (if (setnu-extent-property e 'setnu)
+				       e
+				     nil)))
+		       buf pos pos)))
+      ((fboundp 'overlays-in) ;; expect to see this in 19.30
        (defun setnu-extent-at (pos buf)
 	 "Finds the setnu extent at the position POS in the buffer BUF."
 	 (catch 'done
@@ -382,14 +390,6 @@
 		     (throw 'done (car o-list)))
 		 (setq o-list (cdr o-list)))
 	       nil )))))
-       ((fboundp 'map-extents)
-	(defun setnu-extent-at (pos buf)
-	  "Finds the setnu extent at the position POS in the buffer BUF."
-	  (map-extents (function (lambda (e maparg)
-				   (if (setnu-extent-property e 'setnu)
-				       e
-				     nil)))
-		       buf pos pos)))
        (t (error "can't find overlays-in, overlays-at, or map-extents!")))
 
 (defun setnu-extent-at-create (pos buf)