-;;; buff-menu.el --- buffer menu main function and support functions.
+;;; buff-menu.el --- buffer menu main function and support functions
-;; Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
;; Maintainer: FSF
(put-text-property this-buffer-line-start (point)
'buffer buffer)
(put-text-property this-buffer-line-start name-end
- 'mouse-face 'highlight))
+ 'mouse-face 'highlight)
+ (put-text-property this-buffer-line-start name-end
+ 'help-echo "mouse-2: select this buffer"))
(let ((size (format "%8d" this-buffer-size))
(mode this-buffer-mode-name)
(excess (- (current-column) 17)))