emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/buff-menu.el


From: Richard M . Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/buff-menu.el
Date: Sat, 20 Nov 2004 13:58:22 -0500

Index: emacs/lisp/buff-menu.el
diff -c emacs/lisp/buff-menu.el:1.73 emacs/lisp/buff-menu.el:1.74
*** emacs/lisp/buff-menu.el:1.73        Wed Nov 17 17:12:57 2004
--- emacs/lisp/buff-menu.el     Sat Nov 20 18:52:32 2004
***************
*** 645,651 ****
    (let* ((old-buffer (current-buffer))
         (standard-output standard-output)
         (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))
!        (header (concat " " (propertize "CRM " 'face 'fixed-pitch)
                         (Buffer-menu-buffer+size
                          (Buffer-menu-make-sort-button "Buffer" 2)
                          (Buffer-menu-make-sort-button "Size" 3))
--- 645,651 ----
    (let* ((old-buffer (current-buffer))
         (standard-output standard-output)
         (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))
!        (header (concat (propertize "CRM " 'face 'fixed-pitch)
                         (Buffer-menu-buffer+size
                          (Buffer-menu-make-sort-button "Buffer" 2)
                          (Buffer-menu-make-sort-button "Size" 3))
***************
*** 661,667 ****
          (setq pos (match-end 0))
          (put-text-property (match-beginning 0) pos 'display
                             ;; Assume fixed-size chars
!                            (list 'space :align-to (1- pos))
                             header))))
      (with-current-buffer (get-buffer-create "*Buffer List*")
        (setq buffer-read-only nil)
--- 661,667 ----
          (setq pos (match-end 0))
          (put-text-property (match-beginning 0) pos 'display
                             ;; Assume fixed-size chars
!                            (list 'space :align-to pos)
                             header))))
      (with-current-buffer (get-buffer-create "*Buffer List*")
        (setq buffer-read-only nil)
***************
*** 670,677 ****
        (unless Buffer-menu-use-header-line
        (insert header (propertize "---" 'face 'fixed-pitch) " ")
        (insert (Buffer-menu-buffer+size "------" "----"))
!       (insert "  ----" mode-end "----\n")
!       (put-text-property 1 (point) 'intangible t))
        (if buffer-list
          (setq list buffer-list)
        ;; Collect info for every buffer we're interested in.
--- 670,676 ----
        (unless Buffer-menu-use-header-line
        (insert header (propertize "---" 'face 'fixed-pitch) " ")
        (insert (Buffer-menu-buffer+size "------" "----"))
!       (insert "  ----" mode-end "----\n"))
        (if buffer-list
          (setq list buffer-list)
        ;; Collect info for every buffer we're interested in.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]