Mercurial > emacs
changeset 51443:77bc7a2e6bef
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 Jun 2003 09:00:22 +0000 |
| parents | 4c41fd813bd1 |
| children | b53bffc0cbaf |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 5 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Tue Jun 03 23:35:20 2003 +0000 +++ b/lisp/buff-menu.el Wed Jun 04 09:00:22 2003 +0000 @@ -563,14 +563,8 @@ 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 @@ (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