(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 5f6323b9e7b18d4afbd4d7830d9a835fe0cec689..7d239a9269eac75eb747e611398c209361473040 100644 (file)
--- 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 910d6d6753f1c8a85ae0494a2c26cac7d181dc2e..581f505ee9818f23f2fdfcdf29d93994594282a0 100644 (file)
--- 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.