From 638df3f700ee26cd18a7ca9fd9b2890cf44857a7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 4 Jun 2003 09:00:22 +0000 Subject: [PATCH] (list-buffers-noselect): Use window-inside-edges to compute the number of offset spaces. (list-buffers-noselect): Use Buffer-menu-buffer+size to indent the dashes properly. Put some in fixed-pitch. --- lisp/buff-menu.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 34423a836f1..e2a263e33ad 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -563,14 +563,8 @@ For more information, see the function `buffer-menu'." list desired-point name file mode) (when Buffer-menu-use-header-line (let ((spaces - ;; FIXME: This is using the settings of the current frame rather - ;; than the frame into which the buffer will be displayed. - (/ (+ 0.0 (or (frame-parameter nil 'left-fringe) 0) - (or (if (eq (frame-parameter nil 'vertical-scroll-bars) - 'left) - (frame-parameter nil 'scroll-bar-width)) - 0)) - (frame-char-width))) + (- (car (window-inside-edges)) + (car (window-edges)))) (pos 0)) ;; Turn spaces in the header into stretch specs so they work ;; regardless of the header-line face. @@ -590,9 +584,9 @@ For more information, see the function `buffer-menu'." (erase-buffer) (setq standard-output (current-buffer)) (unless Buffer-menu-use-header-line - (insert header "--- ------") - (indent-to Buffer-menu-buffer+size-width) - (insert "---- ----" mode-end "----\n") + (insert header (propertize "---" 'face 'fixed-pitch) " ") + (insert (Buffer-menu-buffer+size "------" "----")) + (insert " ----" mode-end "----\n") (put-text-property 1 (point) 'intangible t)) (setq list (delq t -- 2.39.2