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 <[EMAIL PROTECTED]>
--- 1,6 ----
;;; esh-test.el --- Eshell test suite
! ;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
;; Author: John Wiegley <[EMAIL PROTECTED]>
***************
*** 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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
