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