From d757aac1c927ffbf8edf60e49d8a8640a2a26ccb Mon Sep 17 00:00:00 2001 From: "Eric M. Ludlam" Date: Wed, 4 Apr 2001 00:51:48 +0000 Subject: [PATCH] (speedbar-insert-image-button-maybe): Check for `xemacs' feature instead of for the function `set-extent-property'. --- lisp/ChangeLog | 5 +++++ lisp/speedbar.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * speedbar.el (speedbar-insert-image-button-maybe): Check for + `xemacs' feature instead of for the function `set-extent-property'. + 2001-04-03 Stefan Monnier * 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) -- 2.39.2