mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(speedbar-easymenu-definition-base): Use display-graphic-p where
available, instead of window-system.
This commit is contained in:
Eli Zaretskii 2000-05-28 10:52:50 +00:00
parent a205e32a72
commit 557262167f
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/speedbar.el
View file

@ -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]))