procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(list-buffers-noselect): Use window-inside-edges

Browse source 
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.
This commit is contained in:
Richard M. Stallman 2003-06-04 09:00:22 +00:00
parent 73b0b745c3
commit 638df3f700
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/buff-menu.el
View file

@ -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