(list-buffers-noselect): Don't let space after buf name

inherit the text props from it.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index f1eff3a003eb8fbd9e84772ef2f294fdb4a27714..6119d3f059810d2ab4f5d8787176a372e8640209 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -507,11 +507,12 @@ The R column contains a % for buffers that are read-only."
              ;; This way we avoid problems with unusual buffer names.
              (setq this-buffer-line-start
                    (+ this-buffer-line-start Buffer-menu-buffer-column))
-             (put-text-property this-buffer-line-start (point)
-                                'buffer-name name)
-             (put-text-property this-buffer-line-start (point)
-                                'mouse-face 'highlight)
-             (indent-to 17 2)
+             (let ((name-end (point)))
+               (indent-to 17 2)
+               (put-text-property this-buffer-line-start name-end
+                                  'buffer-name name)
+               (put-text-property this-buffer-line-start name-end
+                                  'mouse-face 'highlight))
              (let (size
                    mode
                    (excess (- (current-column) 17)))