[PATCH] XEmacs obsolete function

This patch avoids using extent-data, a function that is obsolete at least from XEmacs 20.3 and will completely disapear in XEmacs 21.2 and later. --- bbdb-xemacs.el.orig Fri Jul 24 09:40:35 1998 +++ bbdb-xemacs.el Fri Jul 24 09:41:49 1998 ＠＠ -55,7 +55,7 ＠＠ (set-specifier scrollbar-height (cons (current-buffer) 0))) ;; first delete existing extents (map-extents (function (lambda (x y) - (if (eq (extent-data x) 'bbdb) + (if (eq (extent-property x 'data) 'bbdb) (delete-extent x)))) (current-buffer) (point-min) (point-max) nil) (let ((rest bbdb-records) ＠＠ -271,7 +271,7 ＠＠ (let ((extent (or (extent-at (point) (current-buffer) 'highlight) (error ""))) record field face) - (or (eq (extent-data extent) 'bbdb) + (or (eq (extent-property extent 'data) 'bbdb) (error "not a bbdb extent")) (highlight-extent extent t) ; shouldn't be necessary... (goto-char (extent-start-position extent))