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

Use 'header-line-highlight' face in proced and erc

Browse source 
* lisp/erc/erc-list.el (erc-list-button):
* lisp/proced.el (proced-format): Use the 'header-line-highlight
face.  (Bug#28033)
This commit is contained in:
Alexander Gramiak 2017-08-13 17:56:31 +03:00 • committed by Eli Zaretskii
parent 2367c15b18
commit e2e3856141
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/erc/erc-list.el
View file

@ -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"

2
lisp/proced.el
View file

@ -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)