[patch] Re: bbdb cvs archive

Didier Verna writes: My mistake. Steve claimed that his patch subsumed yours, and I didn't check. Here is your patch that we will to apply, and needs to be applied for XEmacs 21.2+. 1998-11-09 Didier Verna <verna(a)inf.enst.fr&gt; * lisp/bbdb-xemacs.el (bbdb-fontify-buffer): extent-data is obsolete (and gone in 21.2+). Replace it. (bbdb-menu): ditto. ------- Start of forwarded message ------- To: XEmacs beta list <xemacs-beta(a)xemacs.org&gt;, info-bbdb(a)xemacs.org Subject: [PATCH] XEmacs obsolete function From: Didier Verna <verna(a)inf.enst.fr&gt; Date: 24 Jul 1998 09:54:18 +0200 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)) ------- End of forwarded message ------- -- Colin