(speedbar-insert-image-button-maybe): Check for `xemacs' feature

instead of for the function `set-extent-property'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfacf7c2f7213ab0aa0d3849fa165f940f1ad913..1f65e55d5572a1c60df2417b82ecb014c013e7db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-03  Eric M. Ludlam  <eric@siege-engine.com>
+
+       * speedbar.el (speedbar-insert-image-button-maybe): Check for
+       `xemacs' feature instead of for the function `set-extent-property'.
+
 2001-04-03  Stefan Monnier  <monnier@cs.yale.edu>
 
        * mail/mh-utils.el (mh-folder-hist): New var.

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 97e2a582f4808f836ce5f277465bcc7afc972fb2..a880e5713209ab604080c230465737ee7f634558 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -4318,7 +4318,7 @@ If we have an image associated with it, use that image."
        ;; underlying text.  This means if we leave it tangible, then I
        ;; don't have to change said giant piles o code.
        (if (and a (symbol-value (cdr a)))
-           (if (fboundp 'set-extent-property)
+           (if (featurep 'xemacs)
                (add-text-properties (+ start (length bt)) start
                                     (list 'end-glyph (symbol-value (cdr a))
                                           'rear-nonsticky (list 'display)