[Top][All Lists]
[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.