[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: buff-menu.el header line

From: Stefan Monnier
Subject: Re: buff-menu.el header line
Date: Thu, 18 Nov 2004 16:23:16 -0500
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux)

>     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"?


* auto-adding address@hidden/emacs--monnier--0--patch-97 to greedy revision 
library /part/00/Tmp/monnier/archlib
* found immediate ancestor revision in library 
* 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]