From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 20 Nov 2004 18:52:50 +0000 (+0000)
Subject: (list-buffers-noselect): Eliminate space at the start of HEADER.
X-Git-Tag: ttn-vms-21-2-B4~3816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d3bce2bd6c94e584d1fd57f998c4141c7009fa8;p=emacs.git

(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f6323b9e7b..7d239a9269e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-11-20  Richard M. Stallman  <rms@gnu.org>
 
+	* buff-menu.el (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.
+
 	* info.el (Info-search): Fix previous change.
 
 2004-11-20  Thien-Thi Nguyen  <ttn@gnu.org>
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.