diff options
-rw-r--r-- | lisp/buff-menu.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index f1eff3a003..6119d3f059 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))) |