Mercurial > emacs
changeset 12243:ef2749cf206f
(list-buffers-noselect): Don't let space after buf name
inherit the text props from it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Jun 1995 20:07:56 +0000 |
| parents | 4fa8c6b3f192 |
| children | ac7375e60931 |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Thu Jun 15 15:30:58 1995 +0000 +++ b/lisp/buff-menu.el Thu Jun 15 20:07:56 1995 +0000 @@ -507,11 +507,12 @@ ;; 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)))