diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2000-05-28 10:52:50 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2000-05-28 10:52:50 +0000 |
| commit | 557262167faa4a0c25fa69bee7c6fbb44f6f7eaa (patch) | |
| tree | 0a051450c974f3db90ab308822fb1913f0d9fdbe /lisp/speedbar.el | |
| parent | a205e32a7298df36c5c0895453633136d18ebf73 (diff) | |
| download | emacs-557262167faa4a0c25fa69bee7c6fbb44f6f7eaa.tar.gz | |
(speedbar-use-images, speedbar-update-flag)
(speedbar-easymenu-definition-base): Use display-graphic-p where
available, instead of window-system.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 577a4795e4f..f74566fe5a6 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -489,7 +489,9 @@ hierarchy would be replaced with the new directory." (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 @@ PATH-EXPRESSION to `speedbar-ignored-path-expressions'." (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 @@ This basically creates a sparse keymap, and makes it's parent be :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])) |