/[emacs]/emacs/lisp/buff-menu.el
ViewVC logotype

Diff of /emacs/lisp/buff-menu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by monnier, Mon Mar 17 18:12:42 2003 UTC revision 1.62 by rms, Wed Jun 4 09:00:22 2003 UTC
# Line 563  For more information, see the function ` Line 563  For more information, see the function `
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.
# Line 590  For more information, see the function ` Line 584  For more information, see the function `
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

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26