comparison lisp/progmodes/make-mode.el @ 12373:58b96b3c285e

(makefile-define-tab-face): New function. (makefile-tab-face): Don't create face here. (makefile-mode): Call makefile-define-tab-face.

12372:91dc931a32c8

;; Also, the doc strings need fixing: the first line doesn't stand alone,
;; and other usage is not high quality.  Symbol names don't have `...'.

;; So, for the meantime, this is not the default mode for makefiles.

;; $Id: makefile.el,v 1.21 1995/05/30 23:02:13 kwzh Exp kwzh $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)"
  "Regex for filenames that will NOT be included in the target list.")

;; TABs are important in Makefiles.  So highlight them in font-lock.
;; Thanks to Job Ganzevoort <[e-mail]> for this.
(defvar makefile-tab-face
  (if (fboundp 'make-face)
      (progn
	(make-face 'makefile-tab-face)
	(or (face-differs-from-default-p 'makefile-tab-face)
	    (set-face-background 'makefile-tab-face "hotpink"))
	'makefile-tab-face)
    '())
  "Face to use for highlighting leading tabs in font-lock-mode.")

(defconst makefile-font-lock-keywords
  (list
   ;; Do macro assignments.  These get the "variable-name" face rather

  (make-local-variable 'makefile-has-prereqs)
  (make-local-variable 'makefile-need-target-pickup)
  (make-local-variable 'makefile-need-macro-pickup)

  ;; Font lock.
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(makefile-font-lock-keywords))

  ;; Add-log.
  (make-local-variable 'add-log-current-defun-function)

			   (match-beginning n))
		     alist))))
    (imenu-progress-message stupid 100)
    (nreverse alist)))

;;; makefile.el ends here

12373:58b96b3c285e

;; Also, the doc strings need fixing: the first line doesn't stand alone,
;; and other usage is not high quality.  Symbol names don't have `...'.

;; So, for the meantime, this is not the default mode for makefiles.

;; $Id: makefile.el,v 1.22 1995/06/15 20:42:24 kwzh Exp rms $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)"
  "Regex for filenames that will NOT be included in the target list.")

;; TABs are important in Makefiles.  So highlight them in font-lock.
;; Thanks to Job Ganzevoort <[e-mail]> for this.
(defvar makefile-tab-face 'makefile-tab-face
  "Face to use for highlighting leading tabs in font-lock-mode.")

(defconst makefile-font-lock-keywords
  (list
   ;; Do macro assignments.  These get the "variable-name" face rather

  (make-local-variable 'makefile-has-prereqs)
  (make-local-variable 'makefile-need-target-pickup)
  (make-local-variable 'makefile-need-macro-pickup)

  ;; Font lock.
  (makefile-define-tab-face)
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(makefile-font-lock-keywords))

  ;; Add-log.
  (make-local-variable 'add-log-current-defun-function)

			   (match-beginning n))
		     alist))))
    (imenu-progress-message stupid 100)
    (nreverse alist)))

(defun makefile-define-tab-face ()
  (make-face 'makefile-tab-face)
  (or (face-differs-from-default-p 'makefile-tab-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"))))
	(set-face-background 'makefile-tab-face bg-color))))

;;; makefile.el ends here