comparison lisp/speedbar.el @ 37180:fc838f090bbe

(speedbar-insert-image-button-maybe): Check for `xemacs' feature instead of for the function `set-extent-property'.
author Eric M. Ludlam <zappo@gnu.org>
date Wed, 04 Apr 2001 00:49:34 +0000
parents e1126269be53
children 2fec97b8ea55
comparison
equal deleted inserted replaced
37179:ebfe0296345e 37180:fc838f090bbe
4316 ;; which (I suppose) make them more compatible with XEmacs 21. 4316 ;; which (I suppose) make them more compatible with XEmacs 21.
4317 ;; Unfortunatly, there is a giant pile o code dependent on the 4317 ;; Unfortunatly, there is a giant pile o code dependent on the
4318 ;; underlying text. This means if we leave it tangible, then I 4318 ;; underlying text. This means if we leave it tangible, then I
4319 ;; don't have to change said giant piles o code. 4319 ;; don't have to change said giant piles o code.
4320 (if (and a (symbol-value (cdr a))) 4320 (if (and a (symbol-value (cdr a)))
4321 (if (fboundp 'set-extent-property) 4321 (if (featurep 'xemacs)
4322 (add-text-properties (+ start (length bt)) start 4322 (add-text-properties (+ start (length bt)) start
4323 (list 'end-glyph (symbol-value (cdr a)) 4323 (list 'end-glyph (symbol-value (cdr a))
4324 'rear-nonsticky (list 'display) 4324 'rear-nonsticky (list 'display)
4325 'invisible t 4325 'invisible t
4326 'detachable t)) 4326 'detachable t))