mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

Merge remote-tracking branch 'refs/remotes/origin/master'

Browse Source
This commit is contained in:
Stefan Monnier 2023-09-04 17:14:14 -04:00
commit 483c6f191f
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
etc/NEWS
View File

@ -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

8
lisp/calendar/appt.el
View File

@ -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