Mercurial > emacs
changeset 29260:7f1b3013a136
(speedbar-use-images, speedbar-update-flag)
(speedbar-easymenu-definition-base): Use display-graphic-p where
available, instead of window-system.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 28 May 2000 10:52:50 +0000 |
| parents | 2780c2363a5f |
| children | 8f30b82a176c |
| files | lisp/speedbar.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/speedbar.el Sun May 28 10:50:24 2000 +0000 +++ b/lisp/speedbar.el Sun May 28 10:52:50 2000 +0000 @@ -489,7 +489,9 @@ (defcustom speedbar-use-images (and (or (fboundp 'defimage) (fboundp 'make-image-specifier)) - window-system) + (if (fboundp 'display-graphic-p) + (display-graphic-p) + window-system)) "*Non nil if speedbar should display icons." :group 'speedbar :type 'boolean) @@ -733,7 +735,9 @@ (or (fboundp 'run-with-idle-timer) (fboundp 'start-itimer) (boundp 'post-command-idle-hook)) - window-system) + (if (fboundp 'display-graphic-p) + (display-graphic-p) + window-system)) "*Non-nil means to automatically update the display. When this is nil then speedbar will not follow the attached frame's path. When speedbar is active, use: @@ -876,7 +880,9 @@ :style toggle :selected speedbar-update-flag]) (if (and (or (fboundp 'defimage) (fboundp 'make-image-specifier)) - window-system) + (if (fboundp 'display-graphic-p) + (display-graphic-p) + window-system)) (list ["Use Images" speedbar-toggle-images :style toggle :selected speedbar-use-images]))