comparison lisp/progmodes/make-mode.el @ 12912:e519963ce31a

(makefile-space-face): New variable. (makefile-define-space-face): New function. (makefile-tab-face): Variable deleted. (makefile-define-tab-face): Function deleted. (makefile-font-lock-keywords): Highlight leading spaces, not tabs.

12911:be0fe2c66b9d

;; 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

(defconst makefile-ignored-files-in-pickup-regex
  "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,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
   ;; arbitrarily.

   '("\\$[({]\\([a-zA-Z0-9_]+\\)[})]" 1 font-lock-reference-face t)
   ;;
   ;; Do dependencies.  These get the function name face.
   (list makefile-dependency-regex 1 'font-lock-function-name-face)

   ;; Highlight leading tab.  Maybe highlighting all leading TABs
   ;; would be nice?  I don't know.
   '("^\t" . makefile-tab-face)))

;;; ------------------------------------------------------------
;;; The following configurable variables are used in the
;;; up-to-date overview .
;;; The standard configuration assumes that your `make' program

  (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

		     (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

12912:e519963ce31a

;; 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.23 1995/06/24 07:34:27 rms 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

(defconst makefile-ignored-files-in-pickup-regex
  "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,v$\\)\\|\\(\\.[chy]\\)"
  "Regex for filenames that will NOT be included in the target list.")

(defvar makefile-space-face 'makefile-space-face
  "Face to use for highlighting leading spaces in Font-Lock mode.")

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

   '("\\$[({]\\([a-zA-Z0-9_]+\\)[})]" 1 font-lock-reference-face t)
   ;;
   ;; Do dependencies.  These get the function name face.
   (list makefile-dependency-regex 1 'font-lock-function-name-face)

   ;; Highlight leading spaces, since they are hard to see and
   ;; can make a makefile fail to function.
   ;; Don't highlight leading tabs, because they are normal
   ;; and people assume that 8 cols of whitespace means a tab.
   '("^ " . makefile-space-face)))

;;; ------------------------------------------------------------
;;; The following configurable variables are used in the
;;; up-to-date overview .
;;; The standard configuration assumes that your `make' program

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

  ;; Font lock.
  (makefile-define-space-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-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

		     (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