(mode-line): Replaces `modeline'.

(toplevel): Make `modeline' an alias for `mode-line'.

diff --git a/lisp/faces.el b/lisp/faces.el
index c8df93071cb1204551c421c414c628d9102ed923..bbf037aabac9022f05906d04af387df9cfb36ea6 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1352,7 +1352,7 @@ created."
   :group 'basic-faces)
 
 
-(defface modeline
+(defface mode-line
   '((((type x) (class color))
      (:box (:line-width 2 :style released-button) :background "grey75"))
     (t
@@ -1360,6 +1360,8 @@ created."
   "Basic mode line face."
   :group 'basic-faces)
 
+;; Make `modeline' an alias for `mode-line', for compatibility.
+(put 'modeline 'face-alias 'mode-line)
 
 (defface header-line
   '((((type x) (class color))