--- 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)