Commit 84288cf4 authored by Alexander Gramiak's avatar Alexander Gramiak Committed by Eli Zaretskii

Add new face 'header-line-highlight'

* lisp/faces.el: Define the face.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-init-header):
* lisp/info.el (Info-fontify-node): Use the new face.
* doc/emacs/display.texi (Standard Faces):
* etc/NEWS: Document the new face.  (Bug#28033)
parent 19d2b4a3
......@@ -711,6 +711,12 @@ Similar to @code{mode-line} for a window's header line, which appears
at the top of a window just as the mode line appears at the bottom.
Most windows do not have a header line---only some special modes, such
Info mode, create one.
@item header-line-highlight
@cindex header-line-highlight face
Similar to @code{highlight} and @code{mode-line-highlight}, but used
for mouse-sensitive portions of text on header lines. This is a
separate face because the @code{header-line} face might be customized
in a way that does not interact well with @code{highlight}.
@item vertical-border
@cindex vertical-border face
This face is used for the vertical divider between windows on text
......@@ -254,6 +254,12 @@ face instead of the 'escape-glyph' face.
** Approximations to quotes are now displayed with the new 'homoglyph'
face instead of the 'escape-glyph' face.
** New face 'header-line-highlight'.
This face is the header-line analogue of 'mode-line-highlight'; it
should be the preferred mouse-face for mouse-sensitive elements in the
header line.
** 'C-x h' ('mark-whole-buffer') will now avoid marking the prompt
part of minibuffers.
......@@ -191,7 +191,7 @@ Populated by `tabulated-list-init-header'.")
;; FIXME: Should share code with tabulated-list-print-col!
(let ((x (max tabulated-list-padding 0))
(button-props `(help-echo "Click to sort by column"
mouse-face highlight
mouse-face header-line-highlight
keymap ,tabulated-list-sort-button-map))
(cols nil))
(if display-line-numbers
......@@ -2628,6 +2628,11 @@ Use the face `mode-line-highlight' for features that can be selected."
:version "21.1"
:group 'basic-faces)
(defface header-line-highlight '((t :inherit highlight))
"Basic header line face for highlighting."
:version "26.1"
:group 'basic-faces)
(defface vertical-border
'((((type tty)) :inherit mode-line-inactive))
"Face used for vertical window dividers on ttys."
......@@ -4654,7 +4654,7 @@ first line or header line, and for breadcrumb links.")
(if (string-equal (downcase tag) "node")
(put-text-property nbeg nend 'font-lock-face 'info-header-node)
(put-text-property nbeg nend 'font-lock-face 'info-header-xref)
(put-text-property tbeg nend 'mouse-face 'highlight)
(put-text-property tbeg nend 'mouse-face 'header-line-highlight)
(put-text-property tbeg nend
(concat "mouse-2: Go to node "
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment