Commit 55726216 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(speedbar-use-images, speedbar-update-flag)

(speedbar-easymenu-definition-base): Use display-graphic-p where
available, instead of window-system.
parent a205e32a
......@@ -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]))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment