master 367c3f25a16: Add 'appt-notification' face (Bug#61661)

[Stefan Kangas]

branch: master
commit 367c3f25a16c8e013a8dbf2bc8c2c20f233e54d2
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Add 'appt-notification' face (Bug#61661)
    
    * lisp/calendar/appt.el (appt-notification): Declare the new face.
    (appt-check): Implement the new face.
    * etc/NEWS: Announce the new face.
---
 etc/NEWS              | 7 +++++++
 lisp/calendar/appt.el | 8 +++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index 936bb62d750..fbb13254e64 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -152,6 +152,13 @@ right-aligned to is controlled by the new user option
 It can be used to add, remove and reorder functions that change
 the appearance of every tab on the tab bar.
 
+** Miscellaneous
+
+---
+*** New face 'appt-notification' for 'appt-display-mode-line'.
+It can be used to customize the look of the appointment notification
+displayed on the mode line when 'appt-display-mode-line' is non-nil.
+
 
 * Editing Changes in Emacs 30.1
 
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 469b3f4023c..c761bb6a89d 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -165,6 +165,12 @@ Only relevant if reminders are being displayed in a 
window."
   :type 'function
   :group 'appt)
 
+(defface appt-notification
+  '((t :inherit mode-line-emphasis))
+  "Face for appointment notification on the modeline.
+Shown when `appt-display-mode-line' is non-nil."
+  :group 'mode-line-faces
+  :version "30.1")
 
 ;;; Internal variables below this point.
 
@@ -406,7 +412,7 @@ displayed in a window:
                          (appt-mode-line (mapcar #'number-to-string
                                                  min-list)
                                          t)
-                         'face 'mode-line-emphasis)
+                         'face 'appt-notification)
                         " ")))
         ;; Reset count to 0 in case we display another appt on the next cycle.
         (setq appt-display-count (if (equal '(0) min-list) 0