Mercurial > emacs
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)) |