From bd7602f2ae853006b03da55a307d96cfb5f19968 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Jun 1995 20:07:56 +0000 Subject: [PATCH] (list-buffers-noselect): Don't let space after buf name inherit the text props from it. --- lisp/buff-menu.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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))) -- 2.39.2