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) |