diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-01 07:24:13 +0000 |
| commit | 56aa883dcbf3482c52fba2b0a8d0cb43be538a88 (patch) | |
| tree | 9518a03e839adf47be8b64a044a5922adea267a4 /lisp/pcvs-info.el | |
| parent | 8608abcfa54fefd29079a71fbbc0e1862862b5e6 (diff) | |
| download | emacs-56aa883dcbf3482c52fba2b0a8d0cb43be538a88.tar.gz | |
Mark face aliases with "-face" suffix as obsolete.
Diffstat (limited to 'lisp/pcvs-info.el')
| -rw-r--r-- | lisp/pcvs-info.el | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el index fa7f3f6cdc3..d1c60a6a96a 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -70,8 +70,7 @@ to confuse some users sometimes." (t (:weight bold))) "PCL-CVS face used to highlight directory changes." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-header-face 'face-alias 'cvs-header) +(define-obsolete-face-alias 'cvs-header-face 'cvs-header "22.1") (defface cvs-filename '((((class color) (background dark)) @@ -81,8 +80,7 @@ to confuse some users sometimes." (t ())) "PCL-CVS face used to highlight file names." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-filename-face 'face-alias 'cvs-filename) +(define-obsolete-face-alias 'cvs-filename-face 'cvs-filename "22.1") (defface cvs-unknown '((((class color) (background dark)) @@ -92,8 +90,7 @@ to confuse some users sometimes." (t (:slant italic))) "PCL-CVS face used to highlight unknown file status." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-unknown-face 'face-alias 'cvs-unknown) +(define-obsolete-face-alias 'cvs-unknown-face 'cvs-unknown "22.1") (defface cvs-handled '((((class color) (background dark)) @@ -103,8 +100,7 @@ to confuse some users sometimes." (t ())) "PCL-CVS face used to highlight handled file status." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-handled-face 'face-alias 'cvs-handled) +(define-obsolete-face-alias 'cvs-handled-face 'cvs-handled "22.1") (defface cvs-need-action '((((class color) (background dark)) @@ -114,8 +110,7 @@ to confuse some users sometimes." (t (:slant italic))) "PCL-CVS face used to highlight status of files needing action." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-need-action-face 'face-alias 'cvs-need-action) +(define-obsolete-face-alias 'cvs-need-action-face 'cvs-need-action "22.1") (defface cvs-marked '((((min-colors 88) (class color) (background dark)) @@ -127,15 +122,13 @@ to confuse some users sometimes." (t (:weight bold))) "PCL-CVS face used to highlight marked file indicator." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-marked-face 'face-alias 'cvs-marked) +(define-obsolete-face-alias 'cvs-marked-face 'cvs-marked "22.1") (defface cvs-msg '((t (:slant italic))) "PCL-CVS face used to highlight CVS messages." :group 'pcl-cvs) -;; backward-compatibility alias -(put 'cvs-msg-face 'face-alias 'cvs-msg) +(define-obsolete-face-alias 'cvs-msg-face 'cvs-msg "22.1") (defvar cvs-fi-up-to-date-face 'cvs-handled) (defvar cvs-fi-unknown-face 'cvs-unknown) |