* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
@ 2017-11-22 20:48 Basil L. Contovounesios
[not found] ` <handler.29405.B.15113837311413.ack@debbugs.gnu.org>
2017-12-01 8:51 ` Eli Zaretskii
0 siblings, 2 replies; 10+ messages in thread
From: Basil L. Contovounesios @ 2017-11-22 20:48 UTC (permalink / raw)
To: 29405
I attach three patches pertaining to the faces defined in
lisp/gnus/message.el in descending order of importance:
1. Fix docstring mistakes and inconsistencies.
2. Use define-obsolete-face-alias instead of duplicating it.
3. Use the newer (DISPLAY . PLIST) face spec syntax,
as per `(elisp) Defining Faces'.
I thought these were minor and coherent enough changes to send
in a single bug report; I apologise if I thought wrongly.
Thanks,
--
Basil
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
[not found] ` <handler.29405.B.15113837311413.ack@debbugs.gnu.org>
@ 2017-11-22 20:56 ` Basil L. Contovounesios
0 siblings, 0 replies; 10+ messages in thread
From: Basil L. Contovounesios @ 2017-11-22 20:56 UTC (permalink / raw)
To: 29405
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Doc fixes --]
[-- Type: text/x-diff, Size: 1846 bytes --]
From 9191964406f3864ee7dc8e67b8a2d57f72247505 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:04:59 +0000
Subject: [PATCH 1/3] ; * lisp/gnus/message.el: Fix message-faces docs.
---
lisp/gnus/message.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f6777c5e88..4bca4353ab 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1434,7 +1434,7 @@ message-header-to
(:foreground "MidnightBlue" :bold t))
(t
(:bold t :italic t)))
- "Face used for displaying From headers."
+ "Face used for displaying To headers."
:group 'message-faces)
;; backward-compatibility alias
(put 'message-header-to-face 'face-alias 'message-header-to)
@@ -1464,7 +1464,7 @@ message-header-subject
(:foreground "navy blue" :bold t))
(t
(:bold t)))
- "Face used for displaying subject headers."
+ "Face used for displaying Subject headers."
:group 'message-faces)
;; backward-compatibility alias
(put 'message-header-subject-face 'face-alias 'message-header-subject)
@@ -1479,7 +1479,7 @@ message-header-newsgroups
(:foreground "blue4" :bold t :italic t))
(t
(:bold t :italic t)))
- "Face used for displaying newsgroups headers."
+ "Face used for displaying Newsgroups headers."
:group 'message-faces)
;; backward-compatibility alias
(put 'message-header-newsgroups-face 'face-alias 'message-header-newsgroups)
@@ -1494,7 +1494,7 @@ message-header-other
(:foreground "steel blue"))
(t
(:bold t :italic t)))
- "Face used for displaying newsgroups headers."
+ "Face used for displaying other headers."
:group 'message-faces)
;; backward-compatibility alias
(put 'message-header-other-face 'face-alias 'message-header-other)
--
2.15.0
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Use define-obsolete-face-alias --]
[-- Type: text/x-diff, Size: 4813 bytes --]
From 51d1d18bf6d5af97b3b0de98b00e8a0556bc7fe6 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:08:09 +0000
Subject: [PATCH 2/3] * lisp/gnus/message.el: Use define-obsolete-face-alias.
---
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 4bca4353ab..c07faea789 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1436,9 +1436,8 @@ message-header-to
(: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 @@ message-header-cc
(: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 @@ message-header-subject
(: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 @@ message-header-newsgroups
(: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 @@ message-header-other
(: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 @@ message-header-name
(: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 @@ message-header-xheader
(: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 @@ message-separator
(: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 @@ message-cited-text
(: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 @@ message-mml
(: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
--
2.15.0
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: Modernise face spec syntax --]
[-- Type: text/x-diff, Size: 5462 bytes --]
From d58d4244d798536dba02ce9f1e4805306d497fde Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:10:20 +0000
Subject: [PATCH 3/3] * lisp/gnus/message.el: Modernise face spec syntax.
---
lisp/gnus/message.el | 60 ++++++++++++++++++++++++++--------------------------
1 file changed, 30 insertions(+), 30 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index c07faea789..1db3f81f36 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1428,12 +1428,12 @@ message-mode-syntax-table
(defface message-header-to
'((((class color)
(background dark))
- (:foreground "DarkOliveGreen1" :bold t))
+ :foreground "DarkOliveGreen1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue" :bold t))
+ :foreground "MidnightBlue" :bold t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying To headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-to-face
@@ -1442,12 +1442,12 @@ 'message-header-to-face
(defface message-header-cc
'((((class color)
(background dark))
- (:foreground "chartreuse1" :bold t))
+ :foreground "chartreuse1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue"))
+ :foreground "MidnightBlue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Cc headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-cc-face
@@ -1456,12 +1456,12 @@ 'message-header-cc-face
(defface message-header-subject
'((((class color)
(background dark))
- (:foreground "OliveDrab1"))
+ :foreground "OliveDrab1")
(((class color)
(background light))
- (:foreground "navy blue" :bold t))
+ :foreground "navy blue" :bold t)
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Subject headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-subject-face
@@ -1470,12 +1470,12 @@ 'message-header-subject-face
(defface message-header-newsgroups
'((((class color)
(background dark))
- (:foreground "yellow" :bold t :italic t))
+ :foreground "yellow" :bold t :italic t)
(((class color)
(background light))
- (:foreground "blue4" :bold t :italic t))
+ :foreground "blue4" :bold t :italic t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying Newsgroups headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-newsgroups-face
@@ -1484,12 +1484,12 @@ 'message-header-newsgroups-face
(defface message-header-other
'((((class color)
(background dark))
- (:foreground "VioletRed1"))
+ :foreground "VioletRed1")
(((class color)
(background light))
- (:foreground "steel blue"))
+ :foreground "steel blue")
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying other headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-other-face
@@ -1498,12 +1498,12 @@ 'message-header-other-face
(defface message-header-name
'((((class color)
(background dark))
- (:foreground "green"))
+ :foreground "green")
(((class color)
(background light))
- (:foreground "cornflower blue"))
+ :foreground "cornflower blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying header names."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-name-face
@@ -1512,12 +1512,12 @@ 'message-header-name-face
(defface message-header-xheader
'((((class color)
(background dark))
- (:foreground "DeepSkyBlue1"))
+ :foreground "DeepSkyBlue1")
(((class color)
(background light))
- (:foreground "blue"))
+ :foreground "blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying X-Header headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-xheader-face
@@ -1526,12 +1526,12 @@ 'message-header-xheader-face
(defface message-separator
'((((class color)
(background dark))
- (:foreground "LightSkyBlue1"))
+ :foreground "LightSkyBlue1")
(((class color)
(background light))
- (:foreground "brown"))
+ :foreground "brown")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying the separator."
:group 'message-faces)
(define-obsolete-face-alias 'message-separator-face
@@ -1540,12 +1540,12 @@ 'message-separator-face
(defface message-cited-text
'((((class color)
(background dark))
- (:foreground "LightPink1"))
+ :foreground "LightPink1")
(((class color)
(background light))
- (:foreground "red"))
+ :foreground "red")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying cited text names."
:group 'message-faces)
(define-obsolete-face-alias 'message-cited-text-face
@@ -1554,12 +1554,12 @@ 'message-cited-text-face
(defface message-mml
'((((class color)
(background dark))
- (:foreground "MediumSpringGreen"))
+ :foreground "MediumSpringGreen")
(((class color)
(background light))
- (:foreground "ForestGreen"))
+ :foreground "ForestGreen")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying MML."
:group 'message-faces)
(define-obsolete-face-alias 'message-mml-face
--
2.15.0
[-- Attachment #4: Type: text/plain, Size: 56 bytes --]
Sorry, here are the three promised patches.
--
Basil
^ permalink raw reply related [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-11-22 20:48 bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups Basil L. Contovounesios
[not found] ` <handler.29405.B.15113837311413.ack@debbugs.gnu.org>
@ 2017-12-01 8:51 ` Eli Zaretskii
2017-12-01 9:56 ` Katsumi Yamaoka
2017-12-01 11:07 ` Lars Ingebrigtsen
1 sibling, 2 replies; 10+ messages in thread
From: Eli Zaretskii @ 2017-12-01 8:51 UTC (permalink / raw)
To: Basil L. Contovounesios, Lars Ingebrigtsen, Katsumi Yamaoka; +Cc: 29405
> From: "Basil L. Contovounesios" <contovob@tcd.ie>
> Date: Wed, 22 Nov 2017 20:48:28 +0000
>
> I attach three patches pertaining to the faces defined in
> lisp/gnus/message.el in descending order of importance:
>
> 1. Fix docstring mistakes and inconsistencies.
>
> 2. Use define-obsolete-face-alias instead of duplicating it.
>
> 3. Use the newer (DISPLAY . PLIST) face spec syntax,
> as per `(elisp) Defining Faces'.
Lars, Yamaoka-san -- any comments on these?
I've installed the first one on the emacs-26 branch, as it's clearly a
bugfix in doc strings. But I would like to hear your opinions on the
rest.
Thanks.
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-01 8:51 ` Eli Zaretskii
@ 2017-12-01 9:56 ` Katsumi Yamaoka
2017-12-01 11:07 ` Lars Ingebrigtsen
1 sibling, 0 replies; 10+ messages in thread
From: Katsumi Yamaoka @ 2017-12-01 9:56 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Basil L. Contovounesios, Lars Ingebrigtsen, 29405
On Fri, 01 Dec 2017 10:51:06 +0200, Eli Zaretskii wrote:
>> From: "Basil L. Contovounesios" <contovob@tcd.ie>
>> Date: Wed, 22 Nov 2017 20:48:28 +0000
>> I attach three patches pertaining to the faces defined in
>> lisp/gnus/message.el in descending order of importance:
>> 1. Fix docstring mistakes and inconsistencies.
>> 2. Use define-obsolete-face-alias instead of duplicating it.
>> 3. Use the newer (DISPLAY . PLIST) face spec syntax,
>> as per `(elisp) Defining Faces'.
> Lars, Yamaoka-san -- any comments on these?
> I've installed the first one on the emacs-26 branch, as it's clearly a
> bugfix in doc strings. But I would like to hear your opinions on the
> rest.
I think all are very good fixes.
`3.' makes XEmacs malfunction AFAIK, but of course it's OK.
Thanks.
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-01 8:51 ` Eli Zaretskii
2017-12-01 9:56 ` Katsumi Yamaoka
@ 2017-12-01 11:07 ` Lars Ingebrigtsen
2017-12-02 9:17 ` Eli Zaretskii
1 sibling, 1 reply; 10+ messages in thread
From: Lars Ingebrigtsen @ 2017-12-01 11:07 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Basil L. Contovounesios, Katsumi Yamaoka, 29405
Eli Zaretskii <eliz@gnu.org> writes:
> Lars, Yamaoka-san -- any comments on these?
Looks good to me.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-01 11:07 ` Lars Ingebrigtsen
@ 2017-12-02 9:17 ` Eli Zaretskii
2017-12-13 1:04 ` Basil L. Contovounesios
0 siblings, 1 reply; 10+ messages in thread
From: Eli Zaretskii @ 2017-12-02 9:17 UTC (permalink / raw)
To: Lars Ingebrigtsen; +Cc: contovob, yamaoka, 29405
> From: Lars Ingebrigtsen <larsi@gnus.org>
> Cc: "Basil L. Contovounesios" <contovob@tcd.ie>, Katsumi Yamaoka <yamaoka@jpl.org>, 29405@debbugs.gnu.org
> Date: Fri, 01 Dec 2017 12:07:02 +0100
>
> Eli Zaretskii <eliz@gnu.org> writes:
>
> > Lars, Yamaoka-san -- any comments on these?
>
> Looks good to me.
OK, thanks for the feedback.
Basil, could you please send log messages for the 2nd and the 3rd
patches formatted as ChangeLog entries? What is missing is the names
of functions/variables in which you make the changes, like this:
* lisp/gnus/message.el (message-header-to, message-header-cc): Use
define-obsolete-face-alias.
etc., I'm sure you get the idea. You can look at the other log
messages in Git, to see more examples.
After you send the updated log messages, I will push these changes.
Thanks.
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-02 9:17 ` Eli Zaretskii
@ 2017-12-13 1:04 ` Basil L. Contovounesios
2017-12-13 1:19 ` Basil L. Contovounesios
2017-12-15 10:22 ` Eli Zaretskii
0 siblings, 2 replies; 10+ messages in thread
From: Basil L. Contovounesios @ 2017-12-13 1:04 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Lars Ingebrigtsen, 29405, yamaoka
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0001-Update-message.el-obsolete-face-aliases.patch --]
[-- Type: text/x-diff, Size: 5066 bytes --]
From eaf40bc5d1d24ba156b9ec8d11b482470396df74 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:08:09 +0000
Subject: [PATCH 1/2] 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.
---
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 0f99cb697d..c3aafd7c62 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1435,9 +1435,8 @@ message-header-to
(: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)
@@ -1450,9 +1449,8 @@ message-header-cc
(: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)
@@ -1465,9 +1463,8 @@ message-header-subject
(: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)
@@ -1480,9 +1477,8 @@ message-header-newsgroups
(: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)
@@ -1495,9 +1491,8 @@ message-header-other
(: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)
@@ -1510,9 +1505,8 @@ message-header-name
(: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)
@@ -1525,9 +1519,8 @@ message-header-xheader
(: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)
@@ -1540,9 +1533,8 @@ message-separator
(: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)
@@ -1555,9 +1547,8 @@ message-cited-text
(: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)
@@ -1570,9 +1561,8 @@ message-mml
(: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
--
2.15.1
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0002-Modernise-message.el-face-spec-syntax.patch --]
[-- Type: text/x-diff, Size: 5586 bytes --]
From cdb6a0455bcb780a99bcf6fc3cd53ae84a216b07 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:10:20 +0000
Subject: [PATCH 2/2] Modernise message.el face spec syntax
* lisp/gnus/message.el (message-cited-text, message-mml):
Use (DISPLAY . PLIST) face spec syntax recommended in
`(elisp) Defining Faces'.
---
lisp/gnus/message.el | 60 ++++++++++++++++++++++++++--------------------------
1 file changed, 30 insertions(+), 30 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index c3aafd7c62..6053d33223 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1427,12 +1427,12 @@ message-mode-syntax-table
(defface message-header-to
'((((class color)
(background dark))
- (:foreground "DarkOliveGreen1" :bold t))
+ :foreground "DarkOliveGreen1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue" :bold t))
+ :foreground "MidnightBlue" :bold t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying To headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-to-face
@@ -1441,12 +1441,12 @@ 'message-header-to-face
(defface message-header-cc
'((((class color)
(background dark))
- (:foreground "chartreuse1" :bold t))
+ :foreground "chartreuse1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue"))
+ :foreground "MidnightBlue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Cc headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-cc-face
@@ -1455,12 +1455,12 @@ 'message-header-cc-face
(defface message-header-subject
'((((class color)
(background dark))
- (:foreground "OliveDrab1"))
+ :foreground "OliveDrab1")
(((class color)
(background light))
- (:foreground "navy blue" :bold t))
+ :foreground "navy blue" :bold t)
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Subject headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-subject-face
@@ -1469,12 +1469,12 @@ 'message-header-subject-face
(defface message-header-newsgroups
'((((class color)
(background dark))
- (:foreground "yellow" :bold t :italic t))
+ :foreground "yellow" :bold t :italic t)
(((class color)
(background light))
- (:foreground "blue4" :bold t :italic t))
+ :foreground "blue4" :bold t :italic t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying Newsgroups headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-newsgroups-face
@@ -1483,12 +1483,12 @@ 'message-header-newsgroups-face
(defface message-header-other
'((((class color)
(background dark))
- (:foreground "VioletRed1"))
+ :foreground "VioletRed1")
(((class color)
(background light))
- (:foreground "steel blue"))
+ :foreground "steel blue")
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying other headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-other-face
@@ -1497,12 +1497,12 @@ 'message-header-other-face
(defface message-header-name
'((((class color)
(background dark))
- (:foreground "green"))
+ :foreground "green")
(((class color)
(background light))
- (:foreground "cornflower blue"))
+ :foreground "cornflower blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying header names."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-name-face
@@ -1511,12 +1511,12 @@ 'message-header-name-face
(defface message-header-xheader
'((((class color)
(background dark))
- (:foreground "DeepSkyBlue1"))
+ :foreground "DeepSkyBlue1")
(((class color)
(background light))
- (:foreground "blue"))
+ :foreground "blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying X-Header headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-xheader-face
@@ -1525,12 +1525,12 @@ 'message-header-xheader-face
(defface message-separator
'((((class color)
(background dark))
- (:foreground "LightSkyBlue1"))
+ :foreground "LightSkyBlue1")
(((class color)
(background light))
- (:foreground "brown"))
+ :foreground "brown")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying the separator."
:group 'message-faces)
(define-obsolete-face-alias 'message-separator-face
@@ -1539,12 +1539,12 @@ 'message-separator-face
(defface message-cited-text
'((((class color)
(background dark))
- (:foreground "LightPink1"))
+ :foreground "LightPink1")
(((class color)
(background light))
- (:foreground "red"))
+ :foreground "red")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying cited text names."
:group 'message-faces)
(define-obsolete-face-alias 'message-cited-text-face
@@ -1553,12 +1553,12 @@ 'message-cited-text-face
(defface message-mml
'((((class color)
(background dark))
- (:foreground "MediumSpringGreen"))
+ :foreground "MediumSpringGreen")
(((class color)
(background light))
- (:foreground "ForestGreen"))
+ :foreground "ForestGreen")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying MML."
:group 'message-faces)
(define-obsolete-face-alias 'message-mml-face
--
2.15.1
[-- Attachment #3: Type: text/plain, Size: 806 bytes --]
Eli Zaretskii <eliz@gnu.org> writes:
> Basil, could you please send log messages for the 2nd and the 3rd
> patches formatted as ChangeLog entries? What is missing is the names
> of functions/variables in which you make the changes, like this:
>
> * lisp/gnus/message.el (message-header-to, message-header-cc): Use
> define-obsolete-face-alias.
I don't know what got over me thinking I could get away with being lazy.
> etc., I'm sure you get the idea. You can look at the other log
> messages in Git, to see more examples.
How do the two attached patches look? I feel as if my taste in
ChangeLog authoring has a lot of room for refinement.
> After you send the updated log messages, I will push these changes.
Sorry about the delay on this and thank you everyone for the feedback.
--
Basil
^ permalink raw reply related [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-13 1:04 ` Basil L. Contovounesios
@ 2017-12-13 1:19 ` Basil L. Contovounesios
2017-12-15 10:22 ` Eli Zaretskii
2017-12-15 10:22 ` Eli Zaretskii
1 sibling, 1 reply; 10+ messages in thread
From: Basil L. Contovounesios @ 2017-12-13 1:19 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: Lars Ingebrigtsen, 29405, yamaoka
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0002-Modernise-message.el-face-spec-syntax.patch --]
[-- Type: text/x-diff, Size: 5767 bytes --]
From 3f617f234a1a762b3f8eab42f9a339db3694ab59 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 22 Nov 2017 20:10:20 +0000
Subject: [PATCH 2/2] Modernise message.el face spec syntax
* 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 (DISPLAY . PLIST) face spec syntax as recommended in
`(elisp) Defining Faces'.
---
lisp/gnus/message.el | 60 ++++++++++++++++++++++++++--------------------------
1 file changed, 30 insertions(+), 30 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index c3aafd7c62..6053d33223 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1427,12 +1427,12 @@ message-mode-syntax-table
(defface message-header-to
'((((class color)
(background dark))
- (:foreground "DarkOliveGreen1" :bold t))
+ :foreground "DarkOliveGreen1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue" :bold t))
+ :foreground "MidnightBlue" :bold t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying To headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-to-face
@@ -1441,12 +1441,12 @@ 'message-header-to-face
(defface message-header-cc
'((((class color)
(background dark))
- (:foreground "chartreuse1" :bold t))
+ :foreground "chartreuse1" :bold t)
(((class color)
(background light))
- (:foreground "MidnightBlue"))
+ :foreground "MidnightBlue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Cc headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-cc-face
@@ -1455,12 +1455,12 @@ 'message-header-cc-face
(defface message-header-subject
'((((class color)
(background dark))
- (:foreground "OliveDrab1"))
+ :foreground "OliveDrab1")
(((class color)
(background light))
- (:foreground "navy blue" :bold t))
+ :foreground "navy blue" :bold t)
(t
- (:bold t)))
+ :bold t))
"Face used for displaying Subject headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-subject-face
@@ -1469,12 +1469,12 @@ 'message-header-subject-face
(defface message-header-newsgroups
'((((class color)
(background dark))
- (:foreground "yellow" :bold t :italic t))
+ :foreground "yellow" :bold t :italic t)
(((class color)
(background light))
- (:foreground "blue4" :bold t :italic t))
+ :foreground "blue4" :bold t :italic t)
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying Newsgroups headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-newsgroups-face
@@ -1483,12 +1483,12 @@ 'message-header-newsgroups-face
(defface message-header-other
'((((class color)
(background dark))
- (:foreground "VioletRed1"))
+ :foreground "VioletRed1")
(((class color)
(background light))
- (:foreground "steel blue"))
+ :foreground "steel blue")
(t
- (:bold t :italic t)))
+ :bold t :italic t))
"Face used for displaying other headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-other-face
@@ -1497,12 +1497,12 @@ 'message-header-other-face
(defface message-header-name
'((((class color)
(background dark))
- (:foreground "green"))
+ :foreground "green")
(((class color)
(background light))
- (:foreground "cornflower blue"))
+ :foreground "cornflower blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying header names."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-name-face
@@ -1511,12 +1511,12 @@ 'message-header-name-face
(defface message-header-xheader
'((((class color)
(background dark))
- (:foreground "DeepSkyBlue1"))
+ :foreground "DeepSkyBlue1")
(((class color)
(background light))
- (:foreground "blue"))
+ :foreground "blue")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying X-Header headers."
:group 'message-faces)
(define-obsolete-face-alias 'message-header-xheader-face
@@ -1525,12 +1525,12 @@ 'message-header-xheader-face
(defface message-separator
'((((class color)
(background dark))
- (:foreground "LightSkyBlue1"))
+ :foreground "LightSkyBlue1")
(((class color)
(background light))
- (:foreground "brown"))
+ :foreground "brown")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying the separator."
:group 'message-faces)
(define-obsolete-face-alias 'message-separator-face
@@ -1539,12 +1539,12 @@ 'message-separator-face
(defface message-cited-text
'((((class color)
(background dark))
- (:foreground "LightPink1"))
+ :foreground "LightPink1")
(((class color)
(background light))
- (:foreground "red"))
+ :foreground "red")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying cited text names."
:group 'message-faces)
(define-obsolete-face-alias 'message-cited-text-face
@@ -1553,12 +1553,12 @@ 'message-cited-text-face
(defface message-mml
'((((class color)
(background dark))
- (:foreground "MediumSpringGreen"))
+ :foreground "MediumSpringGreen")
(((class color)
(background light))
- (:foreground "ForestGreen"))
+ :foreground "ForestGreen")
(t
- (:bold t)))
+ :bold t))
"Face used for displaying MML."
:group 'message-faces)
(define-obsolete-face-alias 'message-mml-face
--
2.15.1
[-- Attachment #2: Type: text/plain, Size: 212 bytes --]
Sorry, I managed to omit the majority of face names from the patch which
updates the face spec syntax, thanks to a combination of rushing and
text collapsing. Kindly find attached a revised version.
--
Basil
^ permalink raw reply related [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-13 1:04 ` Basil L. Contovounesios
2017-12-13 1:19 ` Basil L. Contovounesios
@ 2017-12-15 10:22 ` Eli Zaretskii
1 sibling, 0 replies; 10+ messages in thread
From: Eli Zaretskii @ 2017-12-15 10:22 UTC (permalink / raw)
To: Basil L. Contovounesios; +Cc: larsi, 29405, yamaoka
> From: "Basil L. Contovounesios" <contovob@tcd.ie>
> Cc: Lars Ingebrigtsen <larsi@gnus.org>, <yamaoka@jpl.org>, <29405@debbugs.gnu.org>
> Date: Wed, 13 Dec 2017 01:04:06 +0000
>
> How do the two attached patches look?
They are fine, but please always mention the bug number in the log
entries.
^ permalink raw reply [flat|nested] 10+ messages in thread
* bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups
2017-12-13 1:19 ` Basil L. Contovounesios
@ 2017-12-15 10:22 ` Eli Zaretskii
0 siblings, 0 replies; 10+ messages in thread
From: Eli Zaretskii @ 2017-12-15 10:22 UTC (permalink / raw)
To: Basil L. Contovounesios; +Cc: larsi, yamaoka, 29405-done
> From: "Basil L. Contovounesios" <contovob@tcd.ie>
> Cc: Lars Ingebrigtsen <larsi@gnus.org>, <yamaoka@jpl.org>, <29405@debbugs.gnu.org>
> Date: Wed, 13 Dec 2017 01:19:13 +0000
>
> Sorry, I managed to omit the majority of face names from the patch which
> updates the face spec syntax, thanks to a combination of rushing and
> text collapsing. Kindly find attached a revised version.
Thanks, pushed.
^ permalink raw reply [flat|nested] 10+ messages in thread
end of thread, other threads:[~2017-12-15 10:22 UTC | newest]
Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-11-22 20:48 bug#29405: 27.0.50; message-faces: Doc fixes and syntax touch-ups Basil L. Contovounesios
[not found] ` <handler.29405.B.15113837311413.ack@debbugs.gnu.org>
2017-11-22 20:56 ` Basil L. Contovounesios
2017-12-01 8:51 ` Eli Zaretskii
2017-12-01 9:56 ` Katsumi Yamaoka
2017-12-01 11:07 ` Lars Ingebrigtsen
2017-12-02 9:17 ` Eli Zaretskii
2017-12-13 1:04 ` Basil L. Contovounesios
2017-12-13 1:19 ` Basil L. Contovounesios
2017-12-15 10:22 ` Eli Zaretskii
2017-12-15 10:22 ` Eli Zaretskii
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).