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))
Show replies by date