[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 b1efbe6: Update message.el obsolete face aliases
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs-26 b1efbe6: Update message.el obsolete face aliases |
Date: |
Fri, 15 Dec 2017 05:19:29 -0500 (EST) |
branch: emacs-26
commit b1efbe656477bcda66de1bfab028e4e39bace055
Author: Basil L. Contovounesios <address@hidden>
Commit: Eli Zaretskii <address@hidden>
Update message.el obsolete face aliases
* lisp/gnus/message.el: (message-header-to, message-header-cc)
(message-header-subject, message-header-newsgroups)
(message-header-other, message-header-name, message-header-xheader)
(message-separator, message-cited-text, message-mml):
Use define-obsolete-face-alias. (Bug#29405)
---
lisp/gnus/message.el | 50 ++++++++++++++++++++------------------------------
1 file changed, 20 insertions(+), 30 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index fa5f47b..508d725 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1436,9 +1436,8 @@ starting with `not' and followed by regexps."
(:bold t :italic t)))
"Face used for displaying To headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-to-face 'face-alias 'message-header-to)
-(put 'message-header-to-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-to-face
+ 'message-header-to "22.1")
(defface message-header-cc
'((((class color)
@@ -1451,9 +1450,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying Cc headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-cc-face 'face-alias 'message-header-cc)
-(put 'message-header-cc-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-cc-face
+ 'message-header-cc "22.1")
(defface message-header-subject
'((((class color)
@@ -1466,9 +1464,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying Subject headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-subject-face 'face-alias 'message-header-subject)
-(put 'message-header-subject-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-subject-face
+ 'message-header-subject "22.1")
(defface message-header-newsgroups
'((((class color)
@@ -1481,9 +1478,8 @@ starting with `not' and followed by regexps."
(:bold t :italic t)))
"Face used for displaying Newsgroups headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
-(put 'message-header-newsgroups-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-newsgroups-face
+ 'message-header-newsgroups "22.1")
(defface message-header-other
'((((class color)
@@ -1496,9 +1492,8 @@ starting with `not' and followed by regexps."
(:bold t :italic t)))
"Face used for displaying other headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-other-face 'face-alias 'message-header-other)
-(put 'message-header-other-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-other-face
+ 'message-header-other "22.1")
(defface message-header-name
'((((class color)
@@ -1511,9 +1506,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying header names."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-name-face 'face-alias 'message-header-name)
-(put 'message-header-name-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-name-face
+ 'message-header-name "22.1")
(defface message-header-xheader
'((((class color)
@@ -1526,9 +1520,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying X-Header headers."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-header-xheader-face 'face-alias 'message-header-xheader)
-(put 'message-header-xheader-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-header-xheader-face
+ 'message-header-xheader "22.1")
(defface message-separator
'((((class color)
@@ -1541,9 +1534,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying the separator."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-separator-face 'face-alias 'message-separator)
-(put 'message-separator-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-separator-face
+ 'message-separator "22.1")
(defface message-cited-text
'((((class color)
@@ -1556,9 +1548,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying cited text names."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-cited-text-face 'face-alias 'message-cited-text)
-(put 'message-cited-text-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-cited-text-face
+ 'message-cited-text "22.1")
(defface message-mml
'((((class color)
@@ -1571,9 +1562,8 @@ starting with `not' and followed by regexps."
(:bold t)))
"Face used for displaying MML."
:group 'message-faces)
-;; backward-compatibility alias
-(put 'message-mml-face 'face-alias 'message-mml)
-(put 'message-mml-face 'obsolete-face "22.1")
+(define-obsolete-face-alias 'message-mml-face
+ 'message-mml "22.1")
(defun message-font-lock-make-header-matcher (regexp)
(let ((form
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 b1efbe6: Update message.el obsolete face aliases,
Eli Zaretskii <=