Re: header-line-format

[Sebastian Tennant <sebyte@smolny.plus.com>]

Quoth Sebastian Tennant <sebyte@smolny.plus.com>:
> I want a _non-underlined_ header line that looks like this:
>
>  a one, b two, c three, ...
>  ^      ^      ^
>  |      |      |
>  +------+------+----- bold face, everything else default face

This is working fine for setting the bold letters:

 (setq header-line-format
       (mapconcat
        (lambda (k)
          (format "%s %s"
                  (propertize (car k) 'face 'bold)
                  (cdr k)))
        '(("a" . "one,") ("b" . "two,") ("c" . "three,"))
        " "))

and I can 'switch-off' the underlining by evaluating this at any time:

  (set-face-attribute 'header-line nil :underline nil)

but this is a global adjustment to header-line face that affects Info
buffers for instance.

Anyone know of a way to tell Emacs to render header lines with a face
other than header-line face, enabling buffer-local control of the face
used in header lines?

Something like this would be great:

  (set (make-local-variable 'header-line-face-name) 'my-header-line-face)

Sebastian