From: Glenn Morris Date: Tue, 1 Sep 2009 16:17:53 +0000 (+0000) Subject: Mark face aliases with "-face" suffix as obsolete. X-Git-Tag: emacs-pretest-23.1.90~1535 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fb1ec93cedbc35037476cd01b197dd4d2e53434;p=emacs.git Mark face aliases with "-face" suffix as obsolete. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e8c8fb61318..e54ce5715c7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -41,6 +41,14 @@ (widget-inactive-face, widget-button-pressed-face): * woman.el (woman-italic-face, woman-bold-face, woman-unknown-face) (woman-addition-face): + * eshell/em-ls.el (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): + * eshell/em-prompt.el (eshell-prompt-face): + * eshell/esh-test.el (eshell-test-ok-face, eshell-test-failed-face): * obsolete/old-whitespace.el (whitespace-highlight-face): * progmodes/ebrowse.el (ebrowse-tree-mark-face) (ebrowse-root-class-face, ebrowse-file-name-face) diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index e346806679e..3bf0bbdc614 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -113,56 +113,52 @@ faster and conserves more memory." (t (:weight bold))) "*The face used for highlight directories." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-directory-face 'face-alias 'eshell-ls-directory) +(define-obsolete-face-alias 'eshell-ls-directory-face + 'eshell-ls-directory "22.1") (defface eshell-ls-symlink '((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) (((class color) (background dark)) (:foreground "Cyan" :weight bold))) "*The face used for highlight symbolic links." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-symlink-face 'face-alias 'eshell-ls-symlink) +(define-obsolete-face-alias 'eshell-ls-symlink-face 'eshell-ls-symlink "22.1") (defface eshell-ls-executable '((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) (((class color) (background dark)) (:foreground "Green" :weight bold))) "*The face used for highlighting executables (not directories, though)." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-executable-face 'face-alias 'eshell-ls-executable) +(define-obsolete-face-alias 'eshell-ls-executable-face + 'eshell-ls-executable "22.1") (defface eshell-ls-readonly '((((class color) (background light)) (:foreground "Brown")) (((class color) (background dark)) (:foreground "Pink"))) "*The face used for highlighting read-only files." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-readonly-face 'face-alias 'eshell-ls-readonly) +(define-obsolete-face-alias 'eshell-ls-readonly-face 'eshell-ls-readonly "22.1") (defface eshell-ls-unreadable '((((class color) (background light)) (:foreground "Grey30")) (((class color) (background dark)) (:foreground "DarkGrey"))) "*The face used for highlighting unreadable files." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-unreadable-face 'face-alias 'eshell-ls-unreadable) +(define-obsolete-face-alias 'eshell-ls-unreadable-face + 'eshell-ls-unreadable "22.1") (defface eshell-ls-special '((((class color) (background light)) (:foreground "Magenta" :weight bold)) (((class color) (background dark)) (:foreground "Magenta" :weight bold))) "*The face used for highlighting non-regular files." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-special-face 'face-alias 'eshell-ls-special) +(define-obsolete-face-alias 'eshell-ls-special-face 'eshell-ls-special "22.1") (defface eshell-ls-missing '((((class color) (background light)) (:foreground "Red" :weight bold)) (((class color) (background dark)) (:foreground "Red" :weight bold))) "*The face used for highlighting non-existent file names." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing) +(define-obsolete-face-alias 'eshell-ls-missing-face 'eshell-ls-missing "22.1") (defcustom eshell-ls-archive-regexp (concat "\\.\\(t\\(a[rz]\\|gz\\)\\|arj\\|lzh\\|" @@ -178,8 +174,7 @@ files." (((class color) (background dark)) (:foreground "Orchid" :weight bold))) "*The face used for highlighting archived and compressed file names." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-archive-face 'face-alias 'eshell-ls-archive) +(define-obsolete-face-alias 'eshell-ls-archive-face 'eshell-ls-archive "22.1") (defcustom eshell-ls-backup-regexp "\\(\\`\\.?#\\|\\(\\.bak\\|~\\)\\'\\)" @@ -192,8 +187,7 @@ files." (((class color) (background dark)) (:foreground "LightSalmon"))) "*The face used for highlighting backup file names." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-backup-face 'face-alias 'eshell-ls-backup) +(define-obsolete-face-alias 'eshell-ls-backup-face 'eshell-ls-backup "22.1") (defcustom eshell-ls-product-regexp "\\.\\(elc\\|o\\(bj\\)?\\|a\\|lib\\|res\\)\\'" @@ -208,8 +202,7 @@ ought to be recreatable if they are deleted." (((class color) (background dark)) (:foreground "LightSalmon"))) "*The face used for highlighting files that are build products." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-product-face 'face-alias 'eshell-ls-product) +(define-obsolete-face-alias 'eshell-ls-product-face 'eshell-ls-product "22.1") (defcustom eshell-ls-clutter-regexp "\\(^texput\\.log\\|^core\\)\\'" @@ -224,8 +217,7 @@ really need to stick around for very long." (((class color) (background dark)) (:foreground "OrangeRed" :weight bold))) "*The face used for highlighting junk file names." :group 'eshell-ls) -;; backward-compatibility alias -(put 'eshell-ls-clutter-face 'face-alias 'eshell-ls-clutter) +(define-obsolete-face-alias 'eshell-ls-clutter-face 'eshell-ls-clutter "22.1") (defsubst eshell-ls-filetype-p (attrs type) "Test whether ATTRS specifies a directory." diff --git a/lisp/eshell/em-prompt.el b/lisp/eshell/em-prompt.el index 215a14793e3..6780c98374a 100644 --- a/lisp/eshell/em-prompt.el +++ b/lisp/eshell/em-prompt.el @@ -76,8 +76,7 @@ re-entered for it to take effect." 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) +(define-obsolete-face-alias 'eshell-prompt-face 'eshell-prompt "22.1") (defcustom eshell-before-prompt-hook nil "*A list of functions to call before outputting the prompt." diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el index 2d9f4d4244d..1550553ece0 100644 --- a/lisp/eshell/esh-test.el +++ b/lisp/eshell/esh-test.el @@ -45,8 +45,7 @@ (((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) +(define-obsolete-face-alias 'eshell-test-ok-face 'eshell-test-ok "22.1") (defface eshell-test-failed '((((class color) (background light)) (:foreground "OrangeRed" :bold t)) @@ -54,8 +53,7 @@ (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) +(define-obsolete-face-alias 'eshell-test-failed-face 'eshell-test-failed "22.1") (defcustom eshell-show-usage-metrics nil "*If non-nil, display different usage metrics for each Eshell command."