procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define 'display-time-time-and-date-indicator' face

Browse source 
* etc/NEWS: Announce the new face for the 'display-time-format'.
* lisp/time.el (display-time-time-and-date-indicator): Define new face.
(display-time-string-forms): Use the new face. (Bug#61567)
This commit is contained in:
Protesilaos Stavrou 2023-02-16 11:05:53 +02:00
parent d4346a7cc7
commit 7ab6c6ac83
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/NEWS
View file

@ -56,6 +56,11 @@ This allows the user to customize the prompt that is appended by
'yes-or-no-p' when asking questions. The default value is
"(yes or no) ".
---
** New face 'display-time-time-and-date-indicator'.
This is used for displaying the time and date components of
'display-time-mode'.
* Editing Changes in Emacs 30.1

6
lisp/time.el
View file

@ -139,6 +139,11 @@ make the mail indicator stand out on a color display."
:version "22.1"
:type '(choice (const :tag "None" nil) face))
(defface display-time-time-and-date-indicator nil
"Face for `display-time-format'."
:group 'mode-line-faces
:version "30.1")
(defvar display-time-mail-icon
(find-image '((:type xpm :file "letter.xpm" :ascent center)
(:type pbm :file "letter.pbm" :ascent center)))
@ -179,6 +184,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
(format-time-string (or display-time-format
(if display-time-24hr-format "%H:%M" "%-I:%M%p"))
now)
'face 'display-time-time-and-date-indicator
'help-echo (format-time-string "%a %b %e, %Y" now))
load
(if mail