Work around Bug#73862 fallout

diff --git a/lisp/simple.el b/lisp/simple.el
index 0c4bb1ebe52512647ef3c84a97942b798b55c01e..94649d62e8d5384719f73248883060486078b195 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10174,7 +10174,8 @@ back on `completion-list-insert-choice-function' when nil."
 (define-derived-mode completion-list-mode special-mode "Completions"
   "Major mode for buffers showing lists of possible completions."
   (when completions-highlight-face (cursor-face-highlight-mode 1))
-  (face-remap-add-relative 'header-line 'completions-heading))
+  (face-remap-add-relative 'header-line-inactive 'completions-heading)
+  (face-remap-add-relative 'header-line-active   'completions-heading))
 
 (defun switch-to-completions ()
   "Select the completion list window."