diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-15 20:07:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-15 20:07:56 +0000 |
| commit | bd7602f2ae853006b03da55a307d96cfb5f19968 (patch) | |
| tree | 9a3881b11e50cd1e97fe0ca52452eb70f535bdac /lisp | |
| parent | 27fc16debc34f0110480af6e636191bd17a2a5fd (diff) | |
| download | emacs-bd7602f2ae853006b03da55a307d96cfb5f19968.tar.gz | |
(list-buffers-noselect): Don't let space after buf name
inherit the text props from it.
Diffstat (limited to 'lisp')
| -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 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))) |