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)

diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el
index 5110239f61ec62a3d72bc1a8a7f54ec703a2798b..7d6413ee7f68ad35aec2bf362536202a23dff3cf 100644 (file)
--- 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 be3b7c41a61202d46450084be4522be0f909a556..18693f4556e830d917b3c30bee0736901dfc91da 100644 (file)
--- 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)