Mercurial > emacs

changeset 12912:e519963ce31a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Aug 1995 17:27:04 +0000
parents be0fe2c66b9d
children 92c12902ae8d
files lisp/progmodes/make-mode.el
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/make-mode.el	Mon Aug 21 14:48:49 1995 +0000
+++ b/lisp/progmodes/make-mode.el	Mon Aug 21 17:27:04 1995 +0000
@@ -14,7 +14,7 @@
 
 ;; 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 $
+;; $Id: makefile.el,v 1.23 1995/06/24 07:34:27 rms Exp rms $
 
 ;; This file is part of GNU Emacs.
 
@@ -205,10 +205,8 @@
   "\\(^\\..*\\)\\|\\(.*~$\\)\\|\\(.*,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 <Job.Ganzevoort@cwi.nl> for this.
-(defvar makefile-tab-face 'makefile-tab-face
-  "Face to use for highlighting leading tabs in font-lock-mode.")
+(defvar makefile-space-face 'makefile-space-face
+  "Face to use for highlighting leading spaces in Font-Lock mode.")
 
 (defconst makefile-font-lock-keywords
   (list
@@ -222,9 +220,11 @@
    ;; 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)))
+   ;; 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
@@ -487,7 +487,7 @@
   (make-local-variable 'makefile-need-macro-pickup)
 
   ;; Font lock.
-  (makefile-define-tab-face)
+  (makefile-define-space-face)
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(makefile-font-lock-keywords))
 
@@ -1361,9 +1361,9 @@
     (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)
+(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))
@@ -1375,6 +1375,6 @@
 		     "hotpink")
 		    (t			; Dark color background.
 		     "hotpink"))))
-	(set-face-background 'makefile-tab-face bg-color))))
+	(set-face-background 'makefile-space-face bg-color))))
 
 ;;; makefile.el ends here