Re: buff-menu.el header line

[Stefan Monnier]

>     IIRC removing the whitespace breaks alignment if you use a
>     header-line in a window-system (i.e. what I expect to be the
>     default case).

> What do you mean by a `window-system'?  I just tried both `emacs -Q'
> in X Windows and `emacs -Q -nw' in an xterm in that Windows, both
> using the buffer-menu.el with the changes I put in and with
> `Buffer-menu-use-header-line' nil, and both worked fine.

I said "if you use a header-line", i.e. with Buffer-menu-use-header-line set
to t.  In my case the lack of leading space causes the CRM to not be aligned
(it doesn't leave space for the scrollbar and the left fringe).

Can you try the patch below instead of your "remove the leading space"?


        Stefan


* auto-adding address@hidden/emacs--monnier--0--patch-97 to greedy revision 
library /part/00/Tmp/monnier/archlib
* found immediate ancestor revision in library 
(address@hidden/emacs--monnier--0--patch-96)
* patching for this revision (address@hidden/emacs--monnier--0--patch-97)
--- orig/lisp/buff-menu.el
+++ mod/lisp/buff-menu.el
@@ -653,7 +653,7 @@
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
         list desired-point)
-    (when Buffer-menu-use-header-line
+    ;; (when Buffer-menu-use-header-line
       (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
        ;; regardless of the header-line face.
@@ -662,7 +662,7 @@
          (put-text-property (match-beginning 0) pos 'display
                             ;; Assume fixed-size chars
                             (list 'space :align-to (1- pos))
-                            header))))
+                            header)));; )
     (with-current-buffer (get-buffer-create "*Buffer List*")
       (setq buffer-read-only nil)
       (erase-buffer)