[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
PATCH: Don't mix faces in Buffer-menu header when Buffer-menu-use-header
From: |
Francis Litterio |
Subject: |
PATCH: Don't mix faces in Buffer-menu header when Buffer-menu-use-header is nil |
Date: |
Wed, 09 Jun 2004 14:10:21 -0400 |
User-agent: |
Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (windows-nt) |
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))
- PATCH: Don't mix faces in Buffer-menu header when Buffer-menu-use-header is nil,
Francis Litterio <=