[Emacs-diffs] Changes to emacs/lisp/eshell/em-prompt.el

[Miles Bader]

Index: emacs/lisp/eshell/em-prompt.el
diff -c emacs/lisp/eshell/em-prompt.el:1.6 emacs/lisp/eshell/em-prompt.el:1.7
*** emacs/lisp/eshell/em-prompt.el:1.6  Mon Sep  1 15:45:23 2003
--- emacs/lisp/eshell/em-prompt.el      Fri Jun 17 05:27:55 2005
***************
*** 1,6 ****
  ;;; em-prompt.el --- command prompts
  
! ;; Copyright (C) 1999, 2000 Free Software Foundation
  
  ;; Author: John Wiegley <address@hidden>
  
--- 1,6 ----
  ;;; em-prompt.el --- command prompts
  
! ;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
  
  ;; Author: John Wiegley <address@hidden>
  
***************
*** 68,74 ****
    :type 'boolean
    :group 'eshell-prompt)
  
! (defface eshell-prompt-face
    '((((class color) (background light)) (:foreground "Red" :bold t))
      (((class color) (background dark)) (:foreground "Pink" :bold t))
      (t (:bold t)))
--- 68,74 ----
    :type 'boolean
    :group 'eshell-prompt)
  
! (defface eshell-prompt
    '((((class color) (background light)) (:foreground "Red" :bold t))
      (((class color) (background dark)) (:foreground "Pink" :bold t))
      (t (:bold t)))
***************
*** 76,81 ****
--- 76,83 ----
  For highlighting other kinds of strings -- similar to shell mode's
  behavior -- simply use an output filer which changes text properties."
    :group 'eshell-prompt)
+ ;; backward-compatibility alias
+ (put 'eshell-prompt-face 'face-alias 'eshell-prompt)
  
  (defcustom eshell-before-prompt-hook nil
    "*A list of functions to call before outputting the prompt."
***************
*** 119,125 ****
        (and eshell-highlight-prompt
           (add-text-properties 0 (length prompt)
                                '(read-only t
!                                 face eshell-prompt-face
                                  rear-nonsticky (face read-only))
                                prompt))
        (eshell-interactive-print prompt)))
--- 121,127 ----
        (and eshell-highlight-prompt
           (add-text-properties 0 (length prompt)
                                '(read-only t
!                                 face eshell-prompt
                                  rear-nonsticky (face read-only))
                                prompt))
        (eshell-interactive-print prompt)))