mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add new header-line-active' and header-line-inactive' faces

Browse source 
This is all intended to parallel the 'mode-line-active' and
'mode-line-inactive' distinction.
* doc/emacs/display.texi (Standard Faces): Document the new faces.

* lisp/faces.el (header-line-active, header-line-inactive): New
faces.

* src/dispextern.h (CURRENT_HEADER_LINE_ACTIVE_FACE_ID_3)
(CURRENT_HEADER_LINE_ACTIVE_FACE_ID): New macros based on mode
line equivalents.
(face_id): New face IDs.
* src/xdisp.c (window_box_height, pos_visible_p, init_iterator)
(window_text_pixel_size, display_mode_lines, display_mode_line)
(format-mode-line): Replace all uses of HEADER_LINE_FACE_ID with
either a new macro or the new face IDs.
* src/xfaces.c (syms_of_xfaces): New lisp symbols.
(lookup_basic_face, realize_basic_faces): Map new face IDs to
their lisp symbols.  (Bug#73862)
This commit is contained in:
Trevor Murphy 2024-10-17 15:51:14 -07:00 • committed by Eli Zaretskii
parent 29098a291f
commit a4014c058b
6 changed files with 99 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/faces.el
View file

@ -2821,6 +2821,21 @@ Use the face `mode-line-highlight' for features that can be selected."
:version "28.1"
:group 'basic-faces)
(defface header-line-active
'((t :inherit header-line))
"Face for the selected header line.
This inherits from the `header-line' face."
:version "29.5"
:group 'mode-line-faces
:group 'basic-faces)
(defface header-line-inactive
'((t :inherit header-line))
"Basic header line face for non-selected windows."
:version "29.5"
:group 'mode-line-faces
:group 'basic-faces)
(defface vertical-border
'((((type tty)) :inherit mode-line-inactive))
"Face used for vertical window dividers on ttys."