From 09763f377f565c4dd836568294b8b27fead20219 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 15 Aug 2005 21:29:32 +0000 Subject: * 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. --- lisp/ChangeLog | 18 +++++++++++++++ lisp/buff-menu.el | 2 -- lisp/compare-w.el | 2 -- lisp/emacs-lisp/testcover.el | 4 ---- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-customize.el | 52 -------------------------------------------- lisp/play/gomoku.el | 4 ---- lisp/play/mpuz.el | 8 ------- lisp/progmodes/compile.el | 4 ---- lisp/progmodes/flymake.el | 4 ---- lisp/progmodes/gdb-ui.el | 2 -- lisp/progmodes/idlw-help.el | 2 -- lisp/progmodes/idlw-shell.el | 9 ++------ lisp/progmodes/ld-script.el | 2 -- lisp/progmodes/which-func.el | 2 -- lisp/ruler-mode.el | 20 ----------------- lisp/strokes.el | 2 -- lisp/textmodes/sgml-mode.el | 2 -- lisp/textmodes/table.el | 2 -- 19 files changed, 25 insertions(+), 121 deletions(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9d912f260bd..5db598f1e66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,23 @@ 2005-08-15 Dan Nicolaescu + * 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 + + * 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 * 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." -- cgit v1.2.1