From e2e3856141a315ea4a7acbd0534feaa848c4bf6b Mon Sep 17 00:00:00 2001 From: Alexander Gramiak Date: Sun, 13 Aug 2017 17:56:31 +0300 Subject: [PATCH] Use 'header-line-highlight' face in proced and erc * lisp/erc/erc-list.el (erc-list-button): * lisp/proced.el (proced-format): Use the 'header-line-highlight face. (Bug#28033) --- lisp/erc/erc-list.el | 2 +- lisp/proced.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el index 5110239f61e..7d6413ee7f6 100644 --- a/lisp/erc/erc-list.el +++ b/lisp/erc/erc-list.el @@ -145,7 +145,7 @@ (erc-propertize title 'column-number column 'help-echo "mouse-1: sort by column" - 'mouse-face 'highlight + 'mouse-face 'header-line-highlight 'keymap erc-list-menu-sort-button-map)) (define-derived-mode erc-list-menu-mode special-mode "ERC-List" diff --git a/lisp/proced.el b/lisp/proced.el index be3b7c41a61..18693f4556e 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1438,7 +1438,7 @@ Replace newline characters by \"^J\" (two characters)." (hprops (if (nth 4 grammar) (let ((descend (if (eq key sort-key) proced-descend (nth 5 grammar)))) - `(proced-key ,key mouse-face highlight + `(proced-key ,key mouse-face header-line-highlight help-echo ,(format proced-header-help-echo (if descend "-" "+") (nth 1 grammar) -- 2.39.5