Mercurial > emacs
changeset 37531:e71362bfa695
(diff-nonexistant-face): New face.
(diff-font-lock-keywords): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 May 2001 13:33:59 +0000 |
| parents | d4b1acaf82b0 |
| children | f14973be41f5 |
| files | lisp/diff-mode.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/diff-mode.el Tue May 01 10:57:11 2001 +0000 +++ b/lisp/diff-mode.el Tue May 01 13:33:59 2001 +0000 @@ -4,7 +4,6 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: patch diff -;; Revision: $Id: diff-mode.el,v 1.35 2000/11/14 18:09:21 fx Exp $ ;; This file is part of GNU Emacs. @@ -250,12 +249,17 @@ :group 'diff-mode) (defvar diff-context-face 'diff-context-face) +(defface diff-nonexistant-face + '((t (:inherit diff-file-header-face))) + "`diff-mode' face used to highlight nonexistant files in recursive diffs." + :group 'diff-mode) +(defvar diff-nonexistant-face 'diff-nonexistant-face) + (defvar diff-font-lock-keywords '(("^\\(@@ -[0-9,]+ \\+[0-9,]+ @@\\)\\(.*\\)$" ;unified (1 diff-hunk-header-face) (2 diff-function-face)) - ("^--- .+ ----$" ;context - . diff-hunk-header-face) + ("^--- .+ ----$" . diff-hunk-header-face) ;context ("\\(\\*\\{15\\}\\)\\(.*\\)$" ;context (1 diff-hunk-header-face) (2 diff-function-face)) @@ -267,6 +271,7 @@ ("^[+>].*\n" . diff-added-face) ("^[-<].*\n" . diff-removed-face) ("^Index: \\(.+\\).*\n" (0 diff-header-face) (1 diff-index-face prepend)) + ("^Only in .*\n" . diff-nonexistant-face) ("^#.*" . font-lock-string-face) ("^[^-=+*!<>].*\n" . diff-context-face)))