563 |
list desired-point name file mode) |
list desired-point name file mode) |
564 |
(when Buffer-menu-use-header-line |
(when Buffer-menu-use-header-line |
565 |
(let ((spaces |
(let ((spaces |
566 |
;; FIXME: This is using the settings of the current frame rather |
(- (car (window-inside-edges)) |
567 |
;; than the frame into which the buffer will be displayed. |
(car (window-edges)))) |
|
(/ (+ 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))) |
|
568 |
(pos 0)) |
(pos 0)) |
569 |
;; Turn spaces in the header into stretch specs so they work |
;; Turn spaces in the header into stretch specs so they work |
570 |
;; regardless of the header-line face. |
;; regardless of the header-line face. |
584 |
(erase-buffer) |
(erase-buffer) |
585 |
(setq standard-output (current-buffer)) |
(setq standard-output (current-buffer)) |
586 |
(unless Buffer-menu-use-header-line |
(unless Buffer-menu-use-header-line |
587 |
(insert header "--- ------") |
(insert header (propertize "---" 'face 'fixed-pitch) " ") |
588 |
(indent-to Buffer-menu-buffer+size-width) |
(insert (Buffer-menu-buffer+size "------" "----")) |
589 |
(insert "---- ----" mode-end "----\n") |
(insert " ----" mode-end "----\n") |
590 |
(put-text-property 1 (point) 'intangible t)) |
(put-text-property 1 (point) 'intangible t)) |
591 |
(setq list |
(setq list |
592 |
(delq t |
(delq t |