From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Jun 1995 20:07:56 +0000 (+0000)
Subject: (list-buffers-noselect): Don't let space after buf name
X-Git-Tag: emacs-19.34~3616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd7602f2ae853006b03da55a307d96cfb5f19968;p=emacs.git

(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 f1eff3a003e..6119d3f0598 100644
--- 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)))