Mercurial > emacs
comparison lisp/progmodes/make-mode.el @ 13402:1f9832fe9e44
(makefile-define-space-face): Don't make face if non-X.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 05 Nov 1995 04:40:19 +0000 |
| parents | 87b725d9d2ae |
| children | c21527e2f125 |
comparison
equal
deleted
inserted
replaced
| 13401:178d730efae2 | 13402:1f9832fe9e44 |
|---|---|
| 1 ;;; makefile.el --- makefile editing commands for Emacs | 1 ;;; make-mode.el --- makefile editing commands for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Thomas Neumann <tom@smart.bo.open.de> | 5 ;; Author: Thomas Neumann <tom@smart.bo.open.de> |
| 6 ;; Eric S. Raymond <esr@snark.thyrsus.com> | 6 ;; Eric S. Raymond <esr@snark.thyrsus.com> |
| 1360 alist)))) | 1360 alist)))) |
| 1361 (imenu-progress-message stupid 100) | 1361 (imenu-progress-message stupid 100) |
| 1362 (nreverse alist))) | 1362 (nreverse alist))) |
| 1363 | 1363 |
| 1364 (defun makefile-define-space-face () | 1364 (defun makefile-define-space-face () |
| 1365 (make-face 'makefile-space-face) | 1365 (if (eq window-system 'x) |
| 1366 (make-face 'makefile-space-face)) | |
| 1366 (or (face-differs-from-default-p 'makefile-space-face) | 1367 (or (face-differs-from-default-p 'makefile-space-face) |
| 1367 (let* ((params (frame-parameters)) | 1368 (let* ((params (frame-parameters)) |
| 1368 (light-bg (cdr (assq 'background-mode params))) | 1369 (light-bg (cdr (assq 'background-mode params))) |
| 1369 (bg-color (cond ((eq (cdr (assq 'display-type params)) 'mono) | 1370 (bg-color (cond ((eq (cdr (assq 'display-type params)) 'mono) |
| 1370 (if light-bg "black" "white")) | 1371 (if light-bg "black" "white")) |
| 1374 "hotpink") | 1375 "hotpink") |
| 1375 (t ; Dark color background. | 1376 (t ; Dark color background. |
| 1376 "hotpink")))) | 1377 "hotpink")))) |
| 1377 (set-face-background 'makefile-space-face bg-color)))) | 1378 (set-face-background 'makefile-space-face bg-color)))) |
| 1378 | 1379 |
| 1379 ;;; makefile.el ends here | 1380 ;;; make-mode.el ends here |