diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-11-20 18:52:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-11-20 18:52:50 +0000 |
| commit | 6d3bce2bd6c94e584d1fd57f998c4141c7009fa8 (patch) | |
| tree | 928c5b8b31030f0bcf3d74deca36d80756d5a298 /lisp/buff-menu.el | |
| parent | dedbac8923bb0c7beb4f3fe33712f800a76dd175 (diff) | |
| download | emacs-6d3bce2bd6c94e584d1fd57f998c4141c7009fa8.tar.gz | |
(list-buffers-noselect): Eliminate space at the start of HEADER.
Compensate for this change in the code to add display properties.
Don't make the first line intangible.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 910d6d6753f..581f505ee98 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -645,7 +645,7 @@ For more information, see the function `buffer-menu'." (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) + (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,7 +661,7 @@ For more information, see the function `buffer-menu'." (setq pos (match-end 0)) (put-text-property (match-beginning 0) pos 'display ;; Assume fixed-size chars - (list 'space :align-to (1- pos)) + (list 'space :align-to pos) header)))) (with-current-buffer (get-buffer-create "*Buffer List*") (setq buffer-read-only nil) @@ -670,8 +670,7 @@ For more information, see the function `buffer-menu'." (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)) + (insert " ----" mode-end "----\n")) (if buffer-list (setq list buffer-list) ;; Collect info for every buffer we're interested in. |