diff options
| author | Richard M. Stallman | 1995-06-15 20:07:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-15 20:07:56 +0000 |
| commit | bd7602f2ae853006b03da55a307d96cfb5f19968 (patch) | |
| tree | 9a3881b11e50cd1e97fe0ca52452eb70f535bdac | |
| parent | 27fc16debc34f0110480af6e636191bd17a2a5fd (diff) | |
| download | emacs-bd7602f2ae853006b03da55a307d96cfb5f19968.tar.gz emacs-bd7602f2ae853006b03da55a307d96cfb5f19968.zip | |
(list-buffers-noselect): Don't let space after buf name
inherit the text props from it.
| -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." | |||
| 507 | ;; This way we avoid problems with unusual buffer names. | 507 | ;; This way we avoid problems with unusual buffer names. |
| 508 | (setq this-buffer-line-start | 508 | (setq this-buffer-line-start |
| 509 | (+ this-buffer-line-start Buffer-menu-buffer-column)) | 509 | (+ this-buffer-line-start Buffer-menu-buffer-column)) |
| 510 | (put-text-property this-buffer-line-start (point) | 510 | (let ((name-end (point))) |
| 511 | 'buffer-name name) | 511 | (indent-to 17 2) |
| 512 | (put-text-property this-buffer-line-start (point) | 512 | (put-text-property this-buffer-line-start name-end |
| 513 | 'mouse-face 'highlight) | 513 | 'buffer-name name) |
| 514 | (indent-to 17 2) | 514 | (put-text-property this-buffer-line-start name-end |
| 515 | 'mouse-face 'highlight)) | ||
| 515 | (let (size | 516 | (let (size |
| 516 | mode | 517 | mode |
| 517 | (excess (- (current-column) 17))) | 518 | (excess (- (current-column) 17))) |