Mercurial > emacs

comparison lisp/diff-mode.el @ 32576:c6eb63e9c25c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(diff-header-face, diff-file-header-face) (diff-changed-face): Define tty-specific colors.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 17 Oct 2000 12:12:00 +0000
parents 3e97369732ac
children afbcd960831b
comparison
equal deleted inserted replaced
32575:7f8af667c707 32576:c6eb63e9c25c
2 2
3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: patch diff 6 ;; Keywords: patch diff
7 ;; Revision: $Id: diff-mode.el,v 1.28 2000/10/04 21:29:59 miles Exp $ 7 ;; Revision: $Id: diff-mode.el,v 1.29 2000/10/15 04:49:55 monnier Exp $
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
166 ;;;; 166 ;;;;
167 ;;;; font-lock support 167 ;;;; font-lock support
168 ;;;; 168 ;;;;
169 169
170 (defface diff-header-face 170 (defface diff-header-face
171 '((((class color) (background light)) 171 '((((type tty pc) (class color) (background light))
172 (:foreground "lightblue"))
173 (((type tty pc) (class color) (background dark))
174 (:foreground "green"))
175 (((class color) (background light))
172 (:background "grey85")) 176 (:background "grey85"))
173 (t (:bold t))) 177 (t (:bold t)))
174 "`diff-mode' face inherited by hunk, file and index header faces." 178 "`diff-mode' face inherited by hunk and index header faces."
175 :group 'diff-mode) 179 :group 'diff-mode)
176 (defvar diff-header-face 'diff-header-face) 180 (defvar diff-header-face 'diff-header-face)
177 181
178 (defface diff-file-header-face 182 (defface diff-file-header-face
179 '((((class color) (background light)) 183 '((((type tty pc) (class color) (background light))
184 (:foreground "yellow"))
185 (((type tty pc) (class color) (background dark))
186 (:foreground "cyan"))
187 (((class color) (background light))
180 (:background "grey70" :bold t)) 188 (:background "grey70" :bold t))
181 (t (:bold t))) ; :height 1.3 189 (t (:bold t))) ; :height 1.3
182 "`diff-mode' face used to highlight file header lines." 190 "`diff-mode' face used to highlight file header lines."
183 :group 'diff-mode) 191 :group 'diff-mode)
184 (defvar diff-file-header-face 'diff-file-header-face) 192 (defvar diff-file-header-face 'diff-file-header-face)
206 "`diff-mode' face used to highlight added lines." 214 "`diff-mode' face used to highlight added lines."
207 :group 'diff-mode) 215 :group 'diff-mode)
208 (defvar diff-added-face 'diff-added-face) 216 (defvar diff-added-face 'diff-added-face)
209 217
210 (defface diff-changed-face 218 (defface diff-changed-face
211 '((t ())) 219 '((((type tty pc) (class color) (background light))
220 (:foreground "magenta"))
221 (((type tty pc) (class color) (background dark))
222 (:foreground "yellow"))
223 (t ()))
212 "`diff-mode' face used to highlight changed lines." 224 "`diff-mode' face used to highlight changed lines."
213 :group 'diff-mode) 225 :group 'diff-mode)
214 (defvar diff-changed-face 'diff-changed-face) 226 (defvar diff-changed-face 'diff-changed-face)
215 227
216 (defface diff-comment-face 228 (defface diff-comment-face