Mercurial > emacs

comparison lisp/emacs-lisp/testcover.el @ 83353:532e0a9335a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * lorentey@elte.hu--2004/emacs--cvs-trunk--0--base-0 tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-474 * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-393
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 04 Sep 2005 03:48:17 +0000
parents fb2cad4cfb30
children 067115a6e738 2d92f5c9d6ae
comparison
equal deleted inserted replaced
83352:b258b3492423 83353:532e0a9335a9
1 ;;;; testcover.el -- Visual code-coverage tool 1 ;;;; testcover.el -- Visual code-coverage tool
2 2
3 ;; Copyright (C) 2002, 2005 Free Software Foundation, Inc. 3 ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Jonathan Yavner <jyavner@member.fsf.org> 5 ;; Author: Jonathan Yavner <jyavner@member.fsf.org>
6 ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> 6 ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org>
7 ;; Keywords: lisp utility 7 ;; Keywords: lisp utility
8 8
152 152
153 (defface testcover-nohits 153 (defface testcover-nohits
154 '((t (:background "DeepPink2"))) 154 '((t (:background "DeepPink2")))
155 "Face for forms that had no hits during coverage test" 155 "Face for forms that had no hits during coverage test"
156 :group 'testcover) 156 :group 'testcover)
157 ;; backward-compatibility alias
158 (put 'testcover-nohits-face 'face-alias 'testcover-nohits)
159 157
160 (defface testcover-1value 158 (defface testcover-1value
161 '((t (:background "Wheat2"))) 159 '((t (:background "Wheat2")))
162 "Face for forms that always produced the same value during coverage test" 160 "Face for forms that always produced the same value during coverage test"
163 :group 'testcover) 161 :group 'testcover)
164 ;; backward-compatibility alias
165 (put 'testcover-1value-face 'face-alias 'testcover-1value)
166 162
167 163
168 ;;;========================================================================= 164 ;;;=========================================================================
169 ;;; Other variables 165 ;;; Other variables
170 ;;;========================================================================= 166 ;;;=========================================================================