* mh-customize.el: Do not use face-alias compatibility for

faces that did not appear in the previous Emacs release.

* buff-menu.el:
* compare-w.el:
* emacs-lisp/testcover.el:
* play/gomoku.el:
* play/mpuz.el:
* progmodes/flymake.el:
* progmodes/gdb-ui.el:
* progmodes/idlw-help.el:
* progmodes/idlw-shell.el:
* progmodes/ld-script.el:
* progmodes/which-func.el:
* ruler-mode.el:
* strokes.el:
* textmodes/sgml-mode.el:
* textmodes/table.el: Do not use face-alias for backward
compatibility for faces that did not appear in the previous Emacs
release.

19 files changed, 25 insertions, 121 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ecaf4d871d4..d3189df570e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,23 @@
 2005-08-15  Dan Nicolaescu  <dann@ics.uci.edu>
 
+        * buff-menu.el: 
+        * compare-w.el: 
+        * emacs-lisp/testcover.el: 
+        * play/gomoku.el: 
+        * play/mpuz.el: 
+        * progmodes/flymake.el: 
+        * progmodes/gdb-ui.el: 
+        * progmodes/idlw-help.el: 
+        * progmodes/idlw-shell.el: 
+        * progmodes/ld-script.el: 
+        * progmodes/which-func.el: 
+        * ruler-mode.el: 
+        * strokes.el: 
+        * textmodes/sgml-mode.el: 
+        * textmodes/table.el: Do not use face-alias for backward
+        compatibility for faces that did not appear in the previous Emacs
+        release.
+
         * simple.el (next-error-follow-minor-mode): Fix init value and
         ligher.
 
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 76a74064589..9418eebe98f 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -79,8 +79,6 @@
   "Face used to highlight buffer name."
   :group 'Buffer-menu
   :group 'font-lock-highlighting-faces)
-;; backward-compatibility alias
-(put 'Buffer-menu-buffer-face 'face-alias 'Buffer-menu-buffer)
 
 (defcustom Buffer-menu-buffer+size-width 26
   "*How wide to jointly make the buffer name and size columns."
diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index 5795ce048c9..3fda5f5de76 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -127,8 +127,6 @@ and the value `((4) (4))' for horizontally split windows."
   "Face for highlighting of compare-windows difference regions."
   :group 'compare-w
   :version "22.1")
-;; backward-compatibility alias
-(put 'compare-windows-face 'face-alias 'compare-windows)
 
 (defvar compare-windows-overlay1 nil)
 (defvar compare-windows-overlay2 nil)
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 4473d514c89..c0afffdf391 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -154,15 +154,11 @@ call to one of the `testcover-1value-functions'."
   '((t (:background "DeepPink2")))
   "Face for forms that had no hits during coverage test"
   :group 'testcover)
-;; backward-compatibility alias
-(put 'testcover-nohits-face 'face-alias 'testcover-nohits)
 
 (defface testcover-1value
   '((t (:background "Wheat2")))
   "Face for forms that always produced the same value during coverage test"
   :group 'testcover)
-;; backward-compatibility alias
-(put 'testcover-1value-face 'face-alias 'testcover-1value)
 
 
 ;;;=========================================================================
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index b217ae5e9f3..82bedd7c2a6 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-15  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * mh-customize.el: Do not use face-alias compatibility for
+        faces that did not appear in the previous Emacs release.
+
 2005-08-10  Lars Hansen  <larsh@soem.dk>
         * mh-e.el: Add handler to desktop-buffer-mode-handlers.
         (mh-restore-desktop-buffer): Remove autoload cookie.
diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el
index c2a86d4a731..4a9882b566c 100644
--- a/lisp/mh-e/mh-customize.el
+++ b/lisp/mh-e/mh-customize.el
@@ -2155,8 +2155,6 @@ will be removed from the unseen sequence."
     (t (:italic t)))
   "Face used to highlight body text in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-body-face 'face-alias 'mh-folder-body)
 
 (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg
   "Face used for the current message line in MH-Folder buffers.")
@@ -2172,8 +2170,6 @@ will be removed from the unseen sequence."
     (t (:underline t)))
   "Face used for the current message line in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-cur-msg-face 'face-alias 'mh-folder-cur-msg)
 
 (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
   "Face used to highlight the current message in MH-Folder buffers.")
@@ -2186,8 +2182,6 @@ will be removed from the unseen sequence."
     (t (:bold t)))
   "Face used to highlight the current message in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-cur-msg-number-face 'face-alias 'mh-folder-cur-msg-number)
 
 (defvar mh-folder-date-face 'mh-folder-date
   "Face used to highlight the date in MH-Folder buffers.")
@@ -2200,8 +2194,6 @@ will be removed from the unseen sequence."
      (:bold t)))
   "Face used to highlight the date in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-date-face 'face-alias 'mh-folder-date)
 
 (defvar mh-folder-followup-face 'mh-folder-followup
   "Face used to highlight Re: subject text in MH-Folder buffers.")
@@ -2214,8 +2206,6 @@ will be removed from the unseen sequence."
      (:bold t)))
   "Face used to highlight Re: subject text in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-followup-face 'face-alias 'mh-folder-followup)
 
 (defvar mh-folder-msg-number-face 'mh-folder-msg-number
   "Face used to highlight the message number in MH-Folder buffers.")
@@ -2228,8 +2218,6 @@ will be removed from the unseen sequence."
      (:bold t)))
   "Face used to highlight the message number in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-msg-number-face 'face-alias 'mh-folder-msg-number)
 
 (defvar mh-folder-deleted-face 'mh-folder-deleted
   "Face used to highlight deleted messages in MH-Folder buffers.")
@@ -2248,8 +2236,6 @@ will be removed from the unseen sequence."
     (t (:bold t :italic t)))
   "Face used to highlight refiled messages in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-refiled-face 'face-alias 'mh-folder-refiled)
 
 (defvar mh-folder-subject-face 'mh-folder-subject
   "Face used to highlight subject text in MH-Folder buffers.")
@@ -2264,8 +2250,6 @@ will be removed from the unseen sequence."
      (:bold t)))
   "Face used to highlight subject text in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-subject-face 'face-alias 'mh-folder-subject)
 
 (defface mh-folder-tick
   '((((class color) (background dark)) (:background "#dddf7e"))
@@ -2273,8 +2257,6 @@ will be removed from the unseen sequence."
     (t (:underline t)))
   "Face used to show ticked messages."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-tick-face 'face-alias 'mh-folder-tick)
 
 (defvar mh-folder-address-face 'mh-folder-address
   "Face used to highlight the address in MH-Folder buffers.")
@@ -2295,8 +2277,6 @@ will be removed from the unseen sequence."
     (t (:italic t)))
   "Face used to highlight the To: string in MH-Folder buffers."
   :group 'mh-folder-faces)
-;; backward-compatibility alias
-(put 'mh-folder-to-face 'face-alias 'mh-folder-to)
 
 
 
@@ -2313,8 +2293,6 @@ will be removed from the unseen sequence."
      (:bold t)))
   "Face used to highlight folders in MH-Index buffers."
   :group 'mh-index-faces)
-;; backward-compatibility alias
-(put 'mh-index-folder-face 'face-alias 'mh-index-folder)
 
 
 
@@ -2328,8 +2306,6 @@ will be removed from the unseen sequence."
     (t (:bold t)))
   "Face used to display header fields in draft buffers."
   :group 'mh-letter-faces)
-;; backward-compatibility alias
-(put 'mh-letter-header-field-face 'face-alias 'mh-letter-header-field)
 
 
 
@@ -2348,8 +2324,6 @@ will be removed from the unseen sequence."
     (t (:bold t :italic t)))
   "Face used to highlight cc: header fields."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-cc-face 'face-alias 'mh-show-cc)
 
 (defvar mh-show-date-face 'mh-show-date
   "Face used to highlight the Date: header field.")
@@ -2362,8 +2336,6 @@ will be removed from the unseen sequence."
     (t (:bold t :underline t)))
   "Face used to highlight the Date: header field."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-date-face 'face-alias 'mh-show-date)
 
 (defvar mh-show-header-face 'mh-show-header
   "Face used to deemphasize unspecified header fields.")
@@ -2376,8 +2348,6 @@ will be removed from the unseen sequence."
     (t (:italic t)))
   "Face used to deemphasize unspecified header fields."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-header-face 'face-alias 'mh-show-header)
 
 (defvar mh-show-pgg-good-face 'mh-show-pgg-good
   "Face used to highlight a good PGG signature.")
@@ -2385,8 +2355,6 @@ will be removed from the unseen sequence."
   '((t (:bold t :foreground "LimeGreen")))
   "Face used to highlight a good PGG signature."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-pgg-good-face 'face-alias 'mh-show-pgg-good)
 
 (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown
   "Face used to highlight a PGG signature whose status is unknown.
@@ -2396,8 +2364,6 @@ This face is also used for a signature when the signer is untrusted.")
   "Face used to highlight a PGG signature whose status is unknown.
 This face is also used for a signature when the signer is untrusted."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-pgg-unknown-face 'face-alias 'mh-show-pgg-unknown)
 
 (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad
   "Face used to highlight a bad PGG signature.")
@@ -2405,15 +2371,11 @@ This face is also used for a signature when the signer is untrusted."
   '((t (:bold t :foreground "DeepPink1")))
   "Face used to highlight a bad PGG signature."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-pgg-bad-face 'face-alias 'mh-show-pgg-bad)
 
 (defface mh-show-signature
   '((t (:italic t)))
   "Face used to highlight the message signature."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-signature-face 'face-alias 'mh-show-signature)
 
 (defvar mh-show-to-face 'mh-show-to
   "Face used to highlight the To: header field.")
@@ -2429,8 +2391,6 @@ This face is also used for a signature when the signer is untrusted."
     (t (:underline t)))
   "Face used to highlight the To: header field."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-to-face 'face-alias 'mh-show-to)
 
 (defvar mh-show-from-face 'mh-show-from
   "Face used to highlight the From: header field.")
@@ -2443,16 +2403,12 @@ This face is also used for a signature when the signer is untrusted."
      (:bold t)))
   "Face used to highlight the From: header field."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-from-face 'face-alias 'mh-show-from)
 
 (defface mh-show-xface
   '((t (:foreground "black" :background "white")))
   "Face used to display the X-Face image.
 The background and foreground is used in the image."
   :group 'mh-show-faces)
-;; backward-compatibility alias
-(put 'mh-show-xface-face 'face-alias 'mh-show-xface)
 
 (defvar mh-show-subject-face 'mh-show-subject
   "Face used to highlight the Subject: header field.")
@@ -2469,8 +2425,6 @@ The background and foreground is used in the image."
      (:foreground "light blue")))
   "Face used for folders in the speedbar buffer."
   :group 'mh-speed-faces)
-;; backward-compatibility alias
-(put 'mh-speedbar-folder-face 'face-alias 'mh-speedbar-folder)
 
 (defface mh-speedbar-selected-folder
   '((((class color) (background light))
@@ -2480,22 +2434,16 @@ The background and foreground is used in the image."
     (t (:underline t)))
   "Face used for the current folder."
   :group 'mh-speed-faces)
-;; backward-compatibility alias
-(put 'mh-speedbar-selected-folder-face 'face-alias 'mh-speedbar-selected-folder)
 
 (defface mh-speedbar-folder-with-unseen-messages
   '((t (:inherit mh-speedbar-folder :bold t)))
   "Face used for folders in the speedbar buffer which have unread messages."
   :group 'mh-speed-faces)
-;; backward-compatibility alias
-(put 'mh-speedbar-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-folder-with-unseen-messages)
 
 (defface mh-speedbar-selected-folder-with-unseen-messages
   '((t (:inherit mh-speedbar-selected-folder :bold t)))
   "Face used for the current folder when it has unread messages."
   :group 'mh-speed-faces)
-;; backward-compatibility alias
-(put 'mh-speedbar-selected-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-selected-folder-with-unseen-messages)
 
 ;;; Local Variables:
 ;;; indent-tabs-mode: nil
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 5a53b4b888e..e9f7a07abe9 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -165,15 +165,11 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
     '((((class color)) (:foreground "red" :weight bold)))
   "Face to use for Emacs' O."
   :group 'gomoku)
-;; backward-compatibility alias
-(put 'gomoku-font-lock-O-face 'face-alias 'gomoku-O)
 
 (defface gomoku-X
     '((((class color)) (:foreground "green" :weight bold)))
   "Face to use for your X."
   :group 'gomoku)
-;; backward-compatibility alias
-(put 'gomoku-font-lock-X-face 'face-alias 'gomoku-X)
 
 (defvar gomoku-font-lock-keywords
   '(("O" . 'gomoku-O)
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index cc252a08719..948ae126ffa 100644
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -62,31 +62,23 @@ t means never ding, and `error' means only ding on wrong input."
     (t (:bold t)))
   "*Face to use for letters to be solved."
   :group 'mpuz)
-;; backward-compatibility alias
-(put 'mpuz-unsolved-face 'face-alias 'mpuz-unsolved)
 
 (defface mpuz-solved
   '((((class color)) (:foreground "green1" :bold t))
     (t (:bold t)))
   "*Face to use for solved digits."
   :group 'mpuz)
-;; backward-compatibility alias
-(put 'mpuz-solved-face 'face-alias 'mpuz-solved)
 
 (defface mpuz-trivial
   '((((class color)) (:foreground "blue" :bold t))
     (t (:bold t)))
   "*Face to use for trivial digits solved for you."
   :group 'mpuz)
-;; backward-compatibility alias
-(put 'mpuz-trivial-face 'face-alias 'mpuz-trivial)
 
 (defface mpuz-text
   '((t (:inherit variable-pitch)))
   "*Face to use for text on right."
   :group 'mpuz)
-;; backward-compatibility alias
-(put 'mpuz-text-face 'face-alias 'mpuz-text)
 
 
 ;; Mpuz mode and keymaps
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 0c299e5678c..253a420da2e 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -484,8 +484,6 @@ starting the compilation process.")
   "Face used to highlight compiler warnings."
   :group 'font-lock-highlighting-faces
   :version "22.1")
-;; backward-compatibility alias
-(put 'compilation-warning-face 'face-alias 'compilation-warning)
 
 (defface compilation-info
   '((((class color) (min-colors 16) (background light))
@@ -499,8 +497,6 @@ starting the compilation process.")
   "Face used to highlight compiler information."
   :group 'font-lock-highlighting-faces
   :version "22.1")
-;; backward-compatibility alias
-(put 'compilation-info-face 'face-alias 'compilation-info)
 
 (defface compilation-line-number
   '((t :inherit font-lock-variable-name-face))
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index a698ee6322f..8854d57915c 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -858,16 +858,12 @@ Return t if it has at least one flymake overlay, nil if no overlay."
     (t (:bold t)))
   "Face used for marking error lines."
   :group 'flymake)
-;; backward-compatibility alias
-(put 'flymake-errline-face 'face-alias 'flymake-errline)
 
 (defface flymake-warnline
   '((((class color)) (:background "LightBlue2"))
     (t (:bold t)))
   "Face used for marking warning lines."
   :group 'flymake)
-;; backward-compatibility alias
-(put 'flymake-warnline-face 'face-alias 'flymake-warnline)
 
 (defun flymake-highlight-line (line-no line-err-info-list)
   "Highlight line LINE-NO in current buffer.
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 42e415c5799..2f350b2d3e7 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1307,8 +1307,6 @@ static char *magick[] = {
     (((background light)) :foreground "grey40"))
   "Face for disabled breakpoint icon in fringe."
   :group 'gud)
-;; Compatibility alias for old name.
-(put 'breakpoint-disabled-bitmap-face 'face-alias 'breakpoint-disabled)
 
 ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
 (defun gdb-info-breakpoints-custom ()
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index 6dbbca4c5b1..8c43831ebac 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -193,8 +193,6 @@ support."
     (t (:weight bold)))
   "Face for highlighting links into IDLWAVE online help."
   :group 'idlwave-online-help)
-;; backward-compatibility alias
-(put 'idlwave-help-link-face 'face-alias 'idlwave-help-link)
 
 (defvar idlwave-help-activate-links-aggressively nil
   "Obsolete variable.")
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 3d6076cd52d..cc706195cc2 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -533,9 +533,7 @@ lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
     '((((class color)) (:foreground "Black" :background "Pink"))
       (t (:underline t)))
     "Face for highlighting lines with breakpoints."
-    :group 'idlwave-shell-highlighting-and-faces)
-  ;; backward-compatibility alias
-  (put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp))
+    :group 'idlwave-shell-highlighting-and-faces))
 
 (defcustom idlwave-shell-disabled-breakpoint-face 
   'idlwave-shell-disabled-bp
@@ -553,10 +551,7 @@ lines which have a breakpoint.  See also `idlwave-shell-mark-breakpoints'."
     '((((class color)) (:foreground "Black" :background "gray"))
       (t (:underline t)))
     "Face for highlighting lines with breakpoints."
-    :group 'idlwave-shell-highlighting-and-faces)
-  ;; backward-compatibility alias
-  (put 'idlwave-shell-disabled-bp-face 'face-alias 'idlwave-shell-disabled-bp))
-
+    :group 'idlwave-shell-highlighting-and-faces))
 
 (defcustom idlwave-shell-expression-face 'secondary-selection
   "*The face for `idlwave-shell-expression-overlay'.
diff --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el
index 8b378b7f0ab..a2449b6817e 100644
--- a/lisp/progmodes/ld-script.el
+++ b/lisp/progmodes/ld-script.el
@@ -39,8 +39,6 @@
   '((t (:weight bold :inherit font-lock-builtin-face)))
   "Face for location counter in GNU ld script."
   :group 'ld-script)
-;; backward-compatibility alias
-(put 'ld-script-location-counter-face 'face-alias 'ld-script-location-counter)
 
 ;; Syntax rules
 (defvar ld-script-mode-syntax-table
diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el
index c1bfc140d84..66d91dce3da 100644
--- a/lisp/progmodes/which-func.el
+++ b/lisp/progmodes/which-func.el
@@ -139,8 +139,6 @@ Zero means compute the Imenu menu regardless of size."
      :foreground "LightSkyBlue"))
   "Face used to highlight mode line function names."
   :group 'which-func)
-;; backward-compatibility alias
-(put 'which-func-face 'face-alias 'which-func)
 
 (defcustom which-func-format
   `("["
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 783e511d0b2..4763072a424 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -221,8 +221,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Default face used by the ruler."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-default-face 'face-alias 'ruler-mode-default)
 
 (defface ruler-mode-pad
   '((((type tty))
@@ -235,8 +233,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to pad inactive ruler areas."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-pad-face 'face-alias 'ruler-mode-pad)
 
 (defface ruler-mode-margins
   '((t
@@ -245,8 +241,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight margin areas."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-margins-face 'face-alias 'ruler-mode-margins)
 
 (defface ruler-mode-fringes
   '((t
@@ -255,8 +249,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight fringes areas."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-fringes-face 'face-alias 'ruler-mode-fringes)
 
 (defface ruler-mode-column-number
   '((t
@@ -265,8 +257,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight number graduations."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-column-number-face 'face-alias 'ruler-mode-column-number)
 
 (defface ruler-mode-fill-column
   '((t
@@ -275,8 +265,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight the fill column character."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-fill-column-face 'face-alias 'ruler-mode-fill-column)
 
 (defface ruler-mode-comment-column
   '((t
@@ -285,8 +273,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight the comment column character."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-comment-column-face 'face-alias 'ruler-mode-comment-column)
 
 (defface ruler-mode-goal-column
   '((t
@@ -295,8 +281,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight the goal column character."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-goal-column-face 'face-alias 'ruler-mode-goal-column)
 
 (defface ruler-mode-tab-stop
   '((t
@@ -305,8 +289,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight tab stop characters."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-tab-stop-face 'face-alias 'ruler-mode-tab-stop)
 
 (defface ruler-mode-current-column
   '((t
@@ -316,8 +298,6 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight the `current-column' character."
   :group 'ruler-mode)
-;; backward-compatibility alias
-(put 'ruler-mode-current-column-face 'face-alias 'ruler-mode-current-column)
 
 
 (defsubst ruler-mode-full-window-width ()
diff --git a/lisp/strokes.el b/lisp/strokes.el
index 925ef360254..a432191b18a 100644
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1424,8 +1424,6 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
   "Face for strokes characters."
   :version "21.1"
   :group 'strokes)
-;; backward-compatibility alias
-(put 'strokes-char-face 'face-alias 'strokes-char)
 
 (put 'strokes 'char-table-extra-slots 0)
 (defconst strokes-char-table (make-char-table 'strokes) ;
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 7b5e2c520a1..1c43ce39ce6 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -252,8 +252,6 @@ Any terminating `>' or `/' is not matched.")
   '((t (:inherit font-lock-builtin-face)))
   "`sgml-mode' face used to highlight the namespace part of identifiers."
   :group 'sgml)
-;; backward-compatibility alias
-(put 'sgml-namespace-face 'face-alias 'sgml-namespace)
 (defvar sgml-namespace-face 'sgml-namespace)
 
 ;; internal
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index f0cde251504..f45bcde6684 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -691,8 +691,6 @@ height."
   "*Face used for table cell contents."
   :tag "Cell Face"
   :group 'table)
-;; backward-compatibility alias
-(put 'table-cell-face 'face-alias 'table-cell)
 
 (defcustom table-cell-horizontal-chars "-="
   "*Characters that may be used for table cell's horizontal border line."