# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 959511170 0
# Node ID 7f1b3013a136b106b2ddd857ba59a06eef06c1a3
# Parent  2780c2363a5f673c67a34af1f5c692117e56e6e0
(speedbar-use-images, speedbar-update-flag)
(speedbar-easymenu-definition-base): Use display-graphic-p where
available, instead of window-system.

diff -r 2780c2363a5f -r 7f1b3013a136 lisp/speedbar.el
--- 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]))