# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1100976752 0
# Node ID e14d75675a15a07c210dc820bdaa8361a2302eec
# Parent  b44e06d9996ca2b02256755347c3dbc3b4711596
(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.

diff -r b44e06d9996c -r e14d75675a15 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Sat Nov 20 14:18:59 2004 +0000
+++ b/lisp/buff-menu.el	Sat Nov 20 18:52:32 2004 +0000
@@ -645,7 +645,7 @@
   (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 @@
 	  (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 @@
       (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.