Mercurial > emacs

changeset 58352:e14d75675a15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 20 Nov 2004 18:52:32 +0000
parents b44e06d9996c
children fce468dd61ef
files lisp/buff-menu.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.