[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-test.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-test.el |
Date: |
Fri, 17 Jun 2005 01:27:57 -0400 |
Index: emacs/lisp/eshell/esh-test.el
diff -c emacs/lisp/eshell/esh-test.el:1.9 emacs/lisp/eshell/esh-test.el:1.10
*** emacs/lisp/eshell/esh-test.el:1.9 Mon Dec 27 16:15:53 2004
--- emacs/lisp/eshell/esh-test.el Fri Jun 17 05:27:55 2005
***************
*** 1,6 ****
;;; esh-test.el --- Eshell test suite
! ;; Copyright (C) 1999, 2000 Free Software Foundation
;; Author: John Wiegley <address@hidden>
--- 1,6 ----
;;; esh-test.el --- Eshell test suite
! ;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
;; Author: John Wiegley <address@hidden>
***************
*** 42,59 ****
;;; User Variables:
! (defface eshell-test-ok-face
'((((class color) (background light)) (:foreground "Green" :bold t))
(((class color) (background dark)) (:foreground "Green" :bold t)))
"*The face used to highlight OK result strings."
:group 'eshell-test)
! (defface eshell-test-failed-face
'((((class color) (background light)) (:foreground "OrangeRed" :bold t))
(((class color) (background dark)) (:foreground "OrangeRed" :bold t))
(t (:bold t)))
"*The face used to highlight FAILED result strings."
:group 'eshell-test)
(defcustom eshell-show-usage-metrics nil
"*If non-nil, display different usage metrics for each Eshell command."
--- 42,63 ----
;;; User Variables:
! (defface eshell-test-ok
'((((class color) (background light)) (:foreground "Green" :bold t))
(((class color) (background dark)) (:foreground "Green" :bold t)))
"*The face used to highlight OK result strings."
:group 'eshell-test)
+ ;; backward-compatibility alias
+ (put 'eshell-test-ok-face 'face-alias 'eshell-test-ok)
! (defface eshell-test-failed
'((((class color) (background light)) (:foreground "OrangeRed" :bold t))
(((class color) (background dark)) (:foreground "OrangeRed" :bold t))
(t (:bold t)))
"*The face used to highlight FAILED result strings."
:group 'eshell-test)
+ ;; backward-compatibility alias
+ (put 'eshell-test-failed-face 'face-alias 'eshell-test-failed)
(defcustom eshell-show-usage-metrics nil
"*If non-nil, display different usage metrics for each Eshell command."
***************
*** 108,119 ****
(if truth
(progn
(setq str " OK ")
! (put-text-property 0 6 'face
! 'eshell-test-ok-face str))
(setq str "FAILED")
(setq eshell-test-failures (1+ eshell-test-failures))
! (put-text-property 0 6 'face
! 'eshell-test-failed-face str))
str) "]")
(add-text-properties (line-beginning-position) (point)
(list 'test-func funcsym))
--- 112,121 ----
(if truth
(progn
(setq str " OK ")
! (put-text-property 0 6 'face 'eshell-test-ok str))
(setq str "FAILED")
(setq eshell-test-failures (1+ eshell-test-failures))
! (put-text-property 0 6 'face 'eshell-test-failed str))
str) "]")
(add-text-properties (line-beginning-position) (point)
(list 'test-func funcsym))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/eshell/esh-test.el,
Miles Bader <=