Commit 4719d184 authored by Miles Bader's avatar Miles Bader
Browse files

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387

Remove "-face" suffix from testcover faces

2005-06-10  Miles Bader  <miles@gnu.org>

   * lisp/emacs-lisp/testcover.el (testcover-nohits, testcover-1value):
   Remove "-face" suffix from face names.
   (testcover-nohits-face, testcover-1value-face):
   New backward-compatibility aliases for renamed faces.
   (testcover-mark): Use renamed testcover faces.
parent ccacbcec
2005-06-10 Miles Bader <miles@gnu.org>
 
* emacs-lisp/testcover.el (testcover-nohits, testcover-1value):
Remove "-face" suffix from face names.
(testcover-nohits-face, testcover-1value-face):
New backward-compatibility aliases for renamed faces.
(testcover-mark): Use renamed testcover faces.
* calendar/diary-lib.el (diary-button): Remove "-face" suffix from
face name.
(diary-button-face): New backward-compatibility alias for renamed face.
......
;;;; testcover.el -- Visual code-coverage tool
;; Copyright (C) 2002 Free Software Foundation, Inc.
;; Copyright (C) 2002, 2005 Free Software Foundation, Inc.
;; Author: Jonathan Yavner <jyavner@member.fsf.org>
;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org>
......@@ -150,15 +150,19 @@ call to one of the `testcover-1value-functions'."
1-valued, no error if actually multi-valued."
:group 'testcover)
(defface testcover-nohits-face
(defface testcover-nohits
'((t (:background "DeepPink2")))
"Face for forms that had no hits during coverage test"
:group 'testcover)
;; backward-compatibility alias
(put 'testcover-nohits-face 'face-alias 'testcover-nohits)
(defface testcover-1value-face
(defface testcover-1value
'((t (:background "Wheat2")))
"Face for forms that always produced the same value during coverage test"
:group 'testcover)
;; backward-compatibility alias
(put 'testcover-1value-face 'face-alias 'testcover-1value)
;;;=========================================================================
......@@ -477,8 +481,8 @@ same value during coverage testing."
(defun testcover-mark (def)
"Marks one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
A marking of testcover-nohits-face (default = red) indicates that the
form was never evaluated. A marking of testcover-1value-face
A marking with the face `testcover-nohits' (default = red) indicates that the
form was never evaluated. A marking using the `testcover-1value' face
\(default = tan) indicates that the form always evaluated to the same value.
The forms throw, error, and signal are not marked. They do not return and
would always get a red mark. Some forms that always return the same
......@@ -506,8 +510,8 @@ eliminated by adding more test cases."
(setq ov (make-overlay (1- j) j))
(overlay-put ov 'face
(if (memq data '(unknown 1value))
'testcover-nohits-face
'testcover-1value-face))))
'testcover-nohits
'testcover-1value))))
(set-buffer-modified-p changed))))
(defun testcover-mark-all (&optional buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment