[Emacs-diffs] Changes to emacs/lisp/eshell/esh-test.el

[Miles Bader]

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))