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

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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfacf7c2f72..1f65e55d557 100644
--- 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 97e2a582f48..a880e571320 100644
--- 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)