Mercurial > emacs

diff lisp/eshell/em-prompt.el @ 63533:b7ea6515f1ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-431 Remove "-face" suffix from eshell faces 2005-06-17 Miles Bader <miles@gnu.org> * lisp/eshell/esh-test.el (eshell-test-ok, eshell-test-failed): Remove "-face" suffix from face names. (eshell-test-ok-face, eshell-test-failed-face): New backward-compatibility aliases for renamed faces. (eshell-run-test): Use renamed eshell-test faces. * lisp/eshell/em-prompt.el (eshell-prompt): Remove "-face" suffix from face name. (eshell-prompt-face): New backward-compatibility alias for renamed face. (eshell-emit-prompt): Use renamed eshell-prompt face. * lisp/eshell/em-ls.el (eshell-ls-directory, eshell-ls-symlink) (eshell-ls-executable, eshell-ls-readonly, eshell-ls-unreadable) (eshell-ls-special, eshell-ls-missing, eshell-ls-archive) (eshell-ls-backup, eshell-ls-product, eshell-ls-clutter): Remove "-face" suffix from face names. (eshell-ls-directory-face, eshell-ls-symlink-face) (eshell-ls-executable-face, eshell-ls-readonly-face) (eshell-ls-unreadable-face, eshell-ls-special-face) (eshell-ls-missing-face, eshell-ls-archive-face) (eshell-ls-backup-face, eshell-ls-product-face) (eshell-ls-clutter-face): New backward-compatibility aliases for renamed faces. (eshell-ls-decorated-name): Use renamed eshell-ls faces.
author Miles Bader <miles@gnu.org>
date Fri, 17 Jun 2005 05:27:55 +0000
parents 695cf19ef79e
children 18a818a2ee7c b7da78284d4c
line wrap: on
line diff
--- a/lisp/eshell/em-prompt.el	Fri Jun 17 05:07:26 2005 +0000
+++ b/lisp/eshell/em-prompt.el	Fri Jun 17 05:27:55 2005 +0000
@@ -1,6 +1,6 @@
 ;;; em-prompt.el --- command prompts
 
-;; Copyright (C) 1999, 2000 Free Software Foundation
+;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -68,7 +68,7 @@
   :type 'boolean
   :group 'eshell-prompt)
 
-(defface eshell-prompt-face
+(defface eshell-prompt
   '((((class color) (background light)) (:foreground "Red" :bold t))
     (((class color) (background dark)) (:foreground "Pink" :bold t))
     (t (:bold t)))
@@ -76,6 +76,8 @@
 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,7 +121,7 @@
       (and eshell-highlight-prompt
 	   (add-text-properties 0 (length prompt)
 				'(read-only t
-				  face eshell-prompt-face
+				  face eshell-prompt
 				  rear-nonsticky (face read-only))
 				prompt))
       (eshell-interactive-print prompt)))