PATCH: Don't mix faces in Buffer-menu header when Buffer-menu-use-header is nil

[Francis Litterio]

The below patch causes the Buffer-menu header to have a consistent face
for all characters when Buffer-menu-use-header is set to nil.  I was
motivated to make this change after setting Buffer-menu-use-header to
nil and noticing that the mixture of text having 'fixed-pitch face with
text having my personal default face (the X windows 6x10 font) made the
header look bad.

I hope the Emacs developer community finds this useful.
--
Francis Litterio
address@hidden
http://world.std.com/~franl/
GPG and PGP public keys available on keyservers.


--- buff-menu.el.~1.66.~        2004-03-31 20:23:36.000000000 -0500
+++ buff-menu.el        2004-06-09 14:09:36.071049600 -0400
@@ -606,7 +606,10 @@
   (let* ((old-buffer (current-buffer))
         (standard-output standard-output)
         (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))
-        (header (concat " " (propertize "CRM " 'face 'fixed-pitch)
+        (header (concat (if Buffer-menu-use-header-line " ")
+                        (if Buffer-menu-use-header-line
+                            (propertize "CRM " 'face 'fixed-pitch)
+                          "CRM ")
                         (Buffer-menu-buffer+size
                          (Buffer-menu-make-sort-button "Buffer" 2)
                          (Buffer-menu-make-sort-button "Size" 3))
@@ -629,7 +632,7 @@
       (erase-buffer)
       (setq standard-output (current-buffer))
       (unless Buffer-menu-use-header-line
-       (insert header (propertize "---" 'face 'fixed-pitch) " ")
+       (insert header "--- ")
        (insert (Buffer-menu-buffer+size "------" "----"))
        (insert "  ----" mode-end "----\n")
        (put-text-property 1 (point) 'intangible t))