Mercurial > emacs
comparison lisp/buff-menu.el @ 38084:4f75256c6aae
(list-buffers-noselect): Add help-echo to mouse-highlighted text.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:28:53 +0000 |
| parents | 509f3f17c442 |
| children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
| 38083:745b05b3e5ed | 38084:4f75256c6aae |
|---|---|
| 546 (put-text-property this-buffer-line-start name-end | 546 (put-text-property this-buffer-line-start name-end |
| 547 'buffer-name name) | 547 'buffer-name name) |
| 548 (put-text-property this-buffer-line-start (point) | 548 (put-text-property this-buffer-line-start (point) |
| 549 'buffer buffer) | 549 'buffer buffer) |
| 550 (put-text-property this-buffer-line-start name-end | 550 (put-text-property this-buffer-line-start name-end |
| 551 'mouse-face 'highlight)) | 551 'mouse-face 'highlight) |
| 552 (put-text-property this-buffer-line-start name-end | |
| 553 'help-echo "mouse-2: select this buffer")) | |
| 552 (let ((size (format "%8d" this-buffer-size)) | 554 (let ((size (format "%8d" this-buffer-size)) |
| 553 (mode this-buffer-mode-name) | 555 (mode this-buffer-mode-name) |
| 554 (excess (- (current-column) 17))) | 556 (excess (- (current-column) 17))) |
| 555 (while (and (> excess 0) (= (aref size 0) ?\ )) | 557 (while (and (> excess 0) (= (aref size 0) ?\ )) |
| 556 (setq size (substring size 1) | 558 (setq size (substring size 1) |