Commit e95e5f81 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent ca19f3f1
2005-08-15 Dan Nicolaescu <dann@ics.uci.edu> 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 * simple.el (next-error-follow-minor-mode): Fix init value and
ligher. ligher.
   
......
...@@ -79,8 +79,6 @@ ...@@ -79,8 +79,6 @@
"Face used to highlight buffer name." "Face used to highlight buffer name."
:group 'Buffer-menu :group 'Buffer-menu
:group 'font-lock-highlighting-faces) :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 (defcustom Buffer-menu-buffer+size-width 26
"*How wide to jointly make the buffer name and size columns." "*How wide to jointly make the buffer name and size columns."
......
...@@ -127,8 +127,6 @@ and the value `((4) (4))' for horizontally split windows." ...@@ -127,8 +127,6 @@ and the value `((4) (4))' for horizontally split windows."
"Face for highlighting of compare-windows difference regions." "Face for highlighting of compare-windows difference regions."
:group 'compare-w :group 'compare-w
:version "22.1") :version "22.1")
;; backward-compatibility alias
(put 'compare-windows-face 'face-alias 'compare-windows)
(defvar compare-windows-overlay1 nil) (defvar compare-windows-overlay1 nil)
(defvar compare-windows-overlay2 nil) (defvar compare-windows-overlay2 nil)
......
...@@ -154,15 +154,11 @@ call to one of the `testcover-1value-functions'." ...@@ -154,15 +154,11 @@ call to one of the `testcover-1value-functions'."
'((t (:background "DeepPink2"))) '((t (:background "DeepPink2")))
"Face for forms that had no hits during coverage test" "Face for forms that had no hits during coverage test"
:group 'testcover) :group 'testcover)
;; backward-compatibility alias
(put 'testcover-nohits-face 'face-alias 'testcover-nohits)
(defface testcover-1value (defface testcover-1value
'((t (:background "Wheat2"))) '((t (:background "Wheat2")))
"Face for forms that always produced the same value during coverage test" "Face for forms that always produced the same value during coverage test"
:group 'testcover) :group 'testcover)
;; backward-compatibility alias
(put 'testcover-1value-face 'face-alias 'testcover-1value)
;;;========================================================================= ;;;=========================================================================
......
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> 2005-08-10 Lars Hansen <larsh@soem.dk>
* mh-e.el: Add handler to desktop-buffer-mode-handlers. * mh-e.el: Add handler to desktop-buffer-mode-handlers.
(mh-restore-desktop-buffer): Remove autoload cookie. (mh-restore-desktop-buffer): Remove autoload cookie.
......
...@@ -2155,8 +2155,6 @@ will be removed from the unseen sequence." ...@@ -2155,8 +2155,6 @@ will be removed from the unseen sequence."
(t (:italic t))) (t (:italic t)))
"Face used to highlight body text in MH-Folder buffers." "Face used to highlight body text in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg
"Face used for the current message line in MH-Folder buffers.") "Face used for the current message line in MH-Folder buffers.")
...@@ -2172,8 +2170,6 @@ will be removed from the unseen sequence." ...@@ -2172,8 +2170,6 @@ will be removed from the unseen sequence."
(t (:underline t))) (t (:underline t)))
"Face used for the current message line in MH-Folder buffers." "Face used for the current message line in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
"Face used to highlight the current message in MH-Folder buffers.") "Face used to highlight the current message in MH-Folder buffers.")
...@@ -2186,8 +2182,6 @@ will be removed from the unseen sequence." ...@@ -2186,8 +2182,6 @@ will be removed from the unseen sequence."
(t (:bold t))) (t (:bold t)))
"Face used to highlight the current message in MH-Folder buffers." "Face used to highlight the current message in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-date-face 'mh-folder-date
"Face used to highlight the date in MH-Folder buffers.") "Face used to highlight the date in MH-Folder buffers.")
...@@ -2200,8 +2194,6 @@ will be removed from the unseen sequence." ...@@ -2200,8 +2194,6 @@ will be removed from the unseen sequence."
(:bold t))) (:bold t)))
"Face used to highlight the date in MH-Folder buffers." "Face used to highlight the date in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-followup-face 'mh-folder-followup
"Face used to highlight Re: subject text in MH-Folder buffers.") "Face used to highlight Re: subject text in MH-Folder buffers.")
...@@ -2214,8 +2206,6 @@ will be removed from the unseen sequence." ...@@ -2214,8 +2206,6 @@ will be removed from the unseen sequence."
(:bold t))) (:bold t)))
"Face used to highlight Re: subject text in MH-Folder buffers." "Face used to highlight Re: subject text in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-msg-number-face 'mh-folder-msg-number
"Face used to highlight the message number in MH-Folder buffers.") "Face used to highlight the message number in MH-Folder buffers.")
...@@ -2228,8 +2218,6 @@ will be removed from the unseen sequence." ...@@ -2228,8 +2218,6 @@ will be removed from the unseen sequence."
(:bold t))) (:bold t)))
"Face used to highlight the message number in MH-Folder buffers." "Face used to highlight the message number in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-deleted-face 'mh-folder-deleted
"Face used to highlight deleted messages in MH-Folder buffers.") "Face used to highlight deleted messages in MH-Folder buffers.")
...@@ -2248,8 +2236,6 @@ will be removed from the unseen sequence." ...@@ -2248,8 +2236,6 @@ will be removed from the unseen sequence."
(t (:bold t :italic t))) (t (:bold t :italic t)))
"Face used to highlight refiled messages in MH-Folder buffers." "Face used to highlight refiled messages in MH-Folder buffers."
:group 'mh-folder-faces) :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 (defvar mh-folder-subject-face 'mh-folder-subject
"Face used to highlight subject text in MH-Folder buffers.") "Face used to highlight subject text in MH-Folder buffers.")
...@@ -2264,8 +2250,6 @@ will be removed from the unseen sequence." ...@@ -2264,8 +2250,6 @@ will be removed from the unseen sequence."
(:bold t))) (:bold t)))
"Face used to highlight subject text in MH-Folder buffers." "Face used to highlight subject text in MH-Folder buffers."
:group 'mh-folder-faces) :group 'mh-folder-faces)
;; backward-compatibility alias
(put 'mh-folder-subject-face 'face-alias 'mh-folder-subject)
(defface mh-folder-tick (defface mh-folder-tick
'((((class color) (background dark)) (:background "#dddf7e")) '((((class color) (background dark)) (:background "#dddf7e"))
...@@ -2273,8 +2257,6 @@ will be removed from the unseen sequence." ...@@ -2273,8 +2257,6 @@ will be removed from the unseen sequence."
(t (:underline t))) (t (:underline t)))
"Face used to show ticked messages." "Face used to show ticked messages."
:group 'mh-folder-faces) :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 (defvar mh-folder-address-face 'mh-folder-address
"Face used to highlight the address in MH-Folder buffers.") "Face used to highlight the address in MH-Folder buffers.")
...@@ -2295,8 +2277,6 @@ will be removed from the unseen sequence." ...@@ -2295,8 +2277,6 @@ will be removed from the unseen sequence."
(t (:italic t))) (t (:italic t)))
"Face used to highlight the To: string in MH-Folder buffers." "Face used to highlight the To: string in MH-Folder buffers."
:group 'mh-folder-faces) :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." ...@@ -2313,8 +2293,6 @@ will be removed from the unseen sequence."
(:bold t))) (:bold t)))
"Face used to highlight folders in MH-Index buffers." "Face used to highlight folders in MH-Index buffers."
:group 'mh-index-faces) :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." ...@@ -2328,8 +2306,6 @@ will be removed from the unseen sequence."
(t (:bold t))) (t (:bold t)))
"Face used to display header fields in draft buffers." "Face used to display header fields in draft buffers."
:group 'mh-letter-faces) :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." ...@@ -2348,8 +2324,6 @@ will be removed from the unseen sequence."
(t (:bold t :italic t))) (t (:bold t :italic t)))
"Face used to highlight cc: header fields." "Face used to highlight cc: header fields."
:group 'mh-show-faces) :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 (defvar mh-show-date-face 'mh-show-date
"Face used to highlight the Date: header field.") "Face used to highlight the Date: header field.")
...@@ -2362,8 +2336,6 @@ will be removed from the unseen sequence." ...@@ -2362,8 +2336,6 @@ will be removed from the unseen sequence."
(t (:bold t :underline t))) (t (:bold t :underline t)))
"Face used to highlight the Date: header field." "Face used to highlight the Date: header field."
:group 'mh-show-faces) :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 (defvar mh-show-header-face 'mh-show-header
"Face used to deemphasize unspecified header fields.") "Face used to deemphasize unspecified header fields.")
...@@ -2376,8 +2348,6 @@ will be removed from the unseen sequence." ...@@ -2376,8 +2348,6 @@ will be removed from the unseen sequence."
(t (:italic t))) (t (:italic t)))
"Face used to deemphasize unspecified header fields." "Face used to deemphasize unspecified header fields."
:group 'mh-show-faces) :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 (defvar mh-show-pgg-good-face 'mh-show-pgg-good
"Face used to highlight a good PGG signature.") "Face used to highlight a good PGG signature.")
...@@ -2385,8 +2355,6 @@ will be removed from the unseen sequence." ...@@ -2385,8 +2355,6 @@ will be removed from the unseen sequence."
'((t (:bold t :foreground "LimeGreen"))) '((t (:bold t :foreground "LimeGreen")))
"Face used to highlight a good PGG signature." "Face used to highlight a good PGG signature."
:group 'mh-show-faces) :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 (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown
"Face used to highlight a PGG signature whose status is 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.") ...@@ -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. "Face used to highlight a PGG signature whose status is unknown.
This face is also used for a signature when the signer is untrusted." This face is also used for a signature when the signer is untrusted."
:group 'mh-show-faces) :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 (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad
"Face used to highlight a bad PGG signature.") "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." ...@@ -2405,15 +2371,11 @@ This face is also used for a signature when the signer is untrusted."
'((t (:bold t :foreground "DeepPink1"))) '((t (:bold t :foreground "DeepPink1")))
"Face used to highlight a bad PGG signature." "Face used to highlight a bad PGG signature."
:group 'mh-show-faces) :group 'mh-show-faces)
;; backward-compatibility alias
(put 'mh-show-pgg-bad-face 'face-alias 'mh-show-pgg-bad)
(defface mh-show-signature (defface mh-show-signature
'((t (:italic t))) '((t (:italic t)))
"Face used to highlight the message signature." "Face used to highlight the message signature."
:group 'mh-show-faces) :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 (defvar mh-show-to-face 'mh-show-to
"Face used to highlight the To: header field.") "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." ...@@ -2429,8 +2391,6 @@ This face is also used for a signature when the signer is untrusted."
(t (:underline t))) (t (:underline t)))
"Face used to highlight the To: header field." "Face used to highlight the To: header field."
:group 'mh-show-faces) :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 (defvar mh-show-from-face 'mh-show-from
"Face used to highlight the From: header field.") "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." ...@@ -2443,16 +2403,12 @@ This face is also used for a signature when the signer is untrusted."
(:bold t))) (:bold t)))
"Face used to highlight the From: header field." "Face used to highlight the From: header field."
:group 'mh-show-faces) :group 'mh-show-faces)
;; backward-compatibility alias
(put 'mh-show-from-face 'face-alias 'mh-show-from)
(defface mh-show-xface (defface mh-show-xface
'((t (:foreground "black" :background "white"))) '((t (:foreground "black" :background "white")))
"Face used to display the X-Face image. "Face used to display the X-Face image.
The background and foreground is used in the image." The background and foreground is used in the image."
:group 'mh-show-faces) :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 (defvar mh-show-subject-face 'mh-show-subject
"Face used to highlight the Subject: header field.") "Face used to highlight the Subject: header field.")
...@@ -2469,8 +2425,6 @@ The background and foreground is used in the image." ...@@ -2469,8 +2425,6 @@ The background and foreground is used in the image."
(:foreground "light blue"))) (:foreground "light blue")))
"Face used for folders in the speedbar buffer." "Face used for folders in the speedbar buffer."
:group 'mh-speed-faces) :group 'mh-speed-faces)
;; backward-compatibility alias
(put 'mh-speedbar-folder-face 'face-alias 'mh-speedbar-folder)
(defface mh-speedbar-selected-folder (defface mh-speedbar-selected-folder
'((((class color) (background light)) '((((class color) (background light))
...@@ -2480,22 +2434,16 @@ The background and foreground is used in the image." ...@@ -2480,22 +2434,16 @@ The background and foreground is used in the image."
(t (:underline t))) (t (:underline t)))
"Face used for the current folder." "Face used for the current folder."
:group 'mh-speed-faces) :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 (defface mh-speedbar-folder-with-unseen-messages
'((t (:inherit mh-speedbar-folder :bold t))) '((t (:inherit mh-speedbar-folder :bold t)))
"Face used for folders in the speedbar buffer which have unread messages." "Face used for folders in the speedbar buffer which have unread messages."
:group 'mh-speed-faces) :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 (defface mh-speedbar-selected-folder-with-unseen-messages
'((t (:inherit mh-speedbar-selected-folder :bold t))) '((t (:inherit mh-speedbar-selected-folder :bold t)))
"Face used for the current folder when it has unread messages." "Face used for the current folder when it has unread messages."
:group 'mh-speed-faces) :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: ;;; Local Variables:
;;; indent-tabs-mode: nil ;;; indent-tabs-mode: nil
......
...@@ -165,15 +165,11 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." ...@@ -165,15 +165,11 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
'((((class color)) (:foreground "red" :weight bold))) '((((class color)) (:foreground "red" :weight bold)))
"Face to use for Emacs' O." "Face to use for Emacs' O."
:group 'gomoku) :group 'gomoku)
;; backward-compatibility alias
(put 'gomoku-font-lock-O-face 'face-alias 'gomoku-O)
(defface gomoku-X (defface gomoku-X
'((((class color)) (:foreground "green" :weight bold))) '((((class color)) (:foreground "green" :weight bold)))
"Face to use for your X." "Face to use for your X."
:group 'gomoku) :group 'gomoku)
;; backward-compatibility alias
(put 'gomoku-font-lock-X-face 'face-alias 'gomoku-X)
(defvar gomoku-font-lock-keywords (defvar gomoku-font-lock-keywords
'(("O" . 'gomoku-O) '(("O" . 'gomoku-O)
......
...@@ -62,31 +62,23 @@ t means never ding, and `error' means only ding on wrong input." ...@@ -62,31 +62,23 @@ t means never ding, and `error' means only ding on wrong input."
(t (:bold t))) (t (:bold t)))
"*Face to use for letters to be solved." "*Face to use for letters to be solved."
:group 'mpuz) :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-unsolved-face 'face-alias 'mpuz-unsolved)
(defface mpuz-solved (defface mpuz-solved
'((((class color)) (:foreground "green1" :bold t)) '((((class color)) (:foreground "green1" :bold t))
(t (:bold t))) (t (:bold t)))
"*Face to use for solved digits." "*Face to use for solved digits."
:group 'mpuz) :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-solved-face 'face-alias 'mpuz-solved)
(defface mpuz-trivial (defface mpuz-trivial
'((((class color)) (:foreground "blue" :bold t)) '((((class color)) (:foreground "blue" :bold t))
(t (:bold t))) (t (:bold t)))
"*Face to use for trivial digits solved for you." "*Face to use for trivial digits solved for you."
:group 'mpuz) :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-trivial-face 'face-alias 'mpuz-trivial)
(defface mpuz-text (defface mpuz-text
'((t (:inherit variable-pitch))) '((t (:inherit variable-pitch)))
"*Face to use for text on right." "*Face to use for text on right."
:group 'mpuz) :group 'mpuz)
;; backward-compatibility alias
(put 'mpuz-text-face 'face-alias 'mpuz-text)
;; Mpuz mode and keymaps ;; Mpuz mode and keymaps
......
...@@ -484,8 +484,6 @@ starting the compilation process.") ...@@ -484,8 +484,6 @@ starting the compilation process.")
"Face used to highlight compiler warnings." "Face used to highlight compiler warnings."
:group 'font-lock-highlighting-faces :group 'font-lock-highlighting-faces
:version "22.1") :version "22.1")
;; backward-compatibility alias
(put 'compilation-warning-face 'face-alias 'compilation-warning)
(defface compilation-info (defface compilation-info
'((((class color) (min-colors 16) (background light)) '((((class color) (min-colors 16) (background light))
...@@ -499,8 +497,6 @@ starting the compilation process.") ...@@ -499,8 +497,6 @@ starting the compilation process.")
"Face used to highlight compiler information." "Face used to highlight compiler information."
:group 'font-lock-highlighting-faces :group 'font-lock-highlighting-faces
:version "22.1") :version "22.1")
;; backward-compatibility alias
(put 'compilation-info-face 'face-alias 'compilation-info)
(defface compilation-line-number (defface compilation-line-number
'((t :inherit font-lock-variable-name-face)) '((t :inherit font-lock-variable-name-face))
......
...@@ -858,16 +858,12 @@ Return t if it has at least one flymake overlay, nil if no overlay." ...@@ -858,16 +858,12 @@ Return t if it has at least one flymake overlay, nil if no overlay."
(t (:bold t))) (t (:bold t)))
"Face used for marking error lines." "Face used for marking error lines."
:group 'flymake) :group 'flymake)
;; backward-compatibility alias
(put 'flymake-errline-face 'face-alias 'flymake-errline)
(defface flymake-warnline (defface flymake-warnline
'((((class color)) (:background "LightBlue2")) '((((class color)) (:background "LightBlue2"))
(t (:bold t))) (t (:bold t)))
"Face used for marking warning lines." "Face used for marking warning lines."
:group 'flymake) :group 'flymake)
;; backward-compatibility alias
(put 'flymake-warnline-face 'face-alias 'flymake-warnline)
(defun flymake-highlight-line (line-no line-err-info-list) (defun flymake-highlight-line (line-no line-err-info-list)
"Highlight line LINE-NO in current buffer. "Highlight line LINE-NO in current buffer.
......
...@@ -1307,8 +1307,6 @@ static char *magick[] = { ...@@ -1307,8 +1307,6 @@ static char *magick[] = {
(((background light)) :foreground "grey40")) (((background light)) :foreground "grey40"))
"Face for disabled breakpoint icon in fringe." "Face for disabled breakpoint icon in fringe."
:group 'gud) :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). ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
(defun gdb-info-breakpoints-custom () (defun gdb-info-breakpoints-custom ()
......
...@@ -193,8 +193,6 @@ support." ...@@ -193,8 +193,6 @@ support."
(t (:weight bold))) (t (:weight bold)))
"Face for highlighting links into IDLWAVE online help." "Face for highlighting links into IDLWAVE online help."
:group '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 (defvar idlwave-help-activate-links-aggressively nil
"Obsolete variable.") "Obsolete variable.")
......
...@@ -533,9 +533,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." ...@@ -533,9 +533,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
'((((class color)) (:foreground "Black" :background "Pink")) '((((class color)) (:foreground "Black" :background "Pink"))
(t (:underline t))) (t (:underline t)))
"Face for highlighting lines with breakpoints." "Face for highlighting lines with breakpoints."
:group 'idlwave-shell-highlighting-and-faces) :group 'idlwave-shell-highlighting-and-faces))
;; backward-compatibility alias
(put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp))
(defcustom idlwave-shell-disabled-breakpoint-face (defcustom idlwave-shell-disabled-breakpoint-face
'idlwave-shell-disabled-bp 'idlwave-shell-disabled-bp
...@@ -553,10 +551,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." ...@@ -553,10 +551,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
'((((class color)) (:foreground "Black" :background "gray")) '((((class color)) (:foreground "Black" :background "gray"))
(t (:underline t))) (t (:underline t)))
"Face for highlighting lines with breakpoints." "Face for highlighting lines with breakpoints."
:group 'idlwave-shell-highlighting-and-faces)