Mercurial > emacs

changeset 104790:f8b01ad24693

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(modeline, modeline-inactive, modeline-highlight, modeline-buffer-id): Mark these face aliases as obsolete.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Sep 2009 03:06:25 +0000
parents aa91debbb2f2
children dba547c05661
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Wed Sep 02 03:04:15 2009 +0000
+++ b/lisp/faces.el	Wed Sep 02 03:06:25 2009 +0000
@@ -2358,6 +2358,8 @@
   :version "21.1"
   :group 'mode-line-faces
   :group 'basic-faces)
+;; No need to define aliases of this form for new faces.
+(define-obsolete-face-alias 'modeline 'mode-line "21.1")
 
 (defface mode-line-inactive
   '((default
@@ -2374,6 +2376,7 @@
   :version "22.1"
   :group 'mode-line-faces
   :group 'basic-faces)
+(define-obsolete-face-alias 'modeline-inactive 'mode-line-inactive "22.1")
 
 (defface mode-line-highlight
   '((((class color) (min-colors 88))
@@ -2384,6 +2387,7 @@
   :version "22.1"
   :group 'mode-line-faces
   :group 'basic-faces)
+(define-obsolete-face-alias 'modeline-highlight 'mode-line-highlight "22.1")
 
 (defface mode-line-emphasis
   '((t (:weight bold)))
@@ -2399,12 +2403,7 @@
   :version "22.1"
   :group 'mode-line-faces
   :group 'basic-faces)
-
-;; Make `modeline' an alias for `mode-line', for compatibility.
-(put 'modeline 'face-alias 'mode-line)
-(put 'modeline-inactive 'face-alias 'mode-line-inactive)
-(put 'modeline-highlight 'face-alias 'mode-line-highlight)
-(put 'modeline-buffer-id 'face-alias 'mode-line-buffer-id)
+(define-obsolete-face-alias 'modeline-buffer-id 'mode-line-buffer-id "22.1")
 
 (defface header-line
   '((default