Commit dc3fc797 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(makefile-space-face): Add defface.

(makefile-define-space-face): Function deleted.
(makefile-mode): Don't call makefile-define-space-font.
parent 4e61bddf
......@@ -103,6 +103,13 @@
:group 'tools
:prefix "makefile-")
(defface makefile-space-face
'((((class color)) (:background "hotpink"))
(t (:reverse-video t)))
"Face to use for highlighting leading spaces in Font-Lock mode."
:group 'faces
:group 'makemode)
(defcustom makefile-browser-buffer-name "*Macros and Targets*"
"Name of the macro- and target browser buffer."
:type 'string
......@@ -538,8 +545,6 @@ makefile-special-targets-list:
(make-local-variable 'makefile-need-macro-pickup)
;; Font lock.
(if (fboundp 'make-face)
(makefile-define-space-face))
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(makefile-font-lock-keywords))
......@@ -1518,20 +1523,4 @@ If it isn't in one, return nil."
(imenu-progress-message stupid 100)
(nreverse alist)))
(defun makefile-define-space-face ()
(make-face 'makefile-space-face)
(or (not (eq window-system 'x))
(face-differs-from-default-p 'makefile-space-face)
(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))))
;;; make-mode.el ends here
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