Mercurial > emacs

changeset 13333:87b725d9d2ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use frame-parameters, not font-lock-background-mode and font-lock-display-type.
author Simon Marshall <simon@gnu.org>
date Mon, 30 Oct 1995 08:31:08 +0000
parents b5f6bf37ffc5
children c55f17d3931f
files lisp/progmodes/make-mode.el
diffstat 1 files changed, 10 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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