# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 815041868 0
# Node ID 87b725d9d2ae49a63070e0daf990b3c067aaea77
# Parent  b5f6bf37ffc5abdedaa026f94af4941ec8b27d3b
Use frame-parameters, not font-lock-background-mode and font-lock-display-type.

diff -r b5f6bf37ffc5 -r 87b725d9d2ae lisp/progmodes/make-mode.el
--- a/lisp/progmodes/make-mode.el	Mon Oct 30 02:37:50 1995 +0000
+++ b/lisp/progmodes/make-mode.el	Mon Oct 30 08:31:08 1995 +0000
@@ -1364,17 +1364,16 @@
 (defun makefile-define-space-face ()
   (make-face 'makefile-space-face)
   (or (face-differs-from-default-p 'makefile-space-face)
-      (let* ((light-bg (eq font-lock-background-mode 'light))
-	     (bg-color
-	      (cond ((memq font-lock-display-type '(mono monochrome))
-		     (if light-bg "black" "white"))
-		    ((memq font-lock-display-type '(grayscale greyscale
-						    grayshade greyshade))
-		     (if light-bg "black" "white"))
-		    (light-bg		; Light color background.
-		     "hotpink")
-		    (t			; Dark color background.
-		     "hotpink"))))
+      (let* ((params (frame-parameters))
+	     (light-bg (cdr (assq 'background-mode params)))
+	     (bg-color (cond ((eq (cdr (assq 'display-type params)) 'mono)
+			      (if light-bg "black" "white"))
+			     ((eq (cdr (assq 'display-type params)) 'grayscale)
+			      (if light-bg "black" "white"))
+			     (light-bg		; Light color background.
+			      "hotpink")
+			     (t			; Dark color background.
+			      "hotpink"))))
 	(set-face-background 'makefile-space-face bg-color))))
 
 ;;; makefile.el ends here