# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765259989 0
# Node ID 61e40a447c927bbba75b949c6e4ebdd395a17cc5
# Parent  49120b664bba592b8e39ba5e2fcead1ba7854bb8
(Buffer-menu-mode): Add mouse-face properties.

diff -r 49120b664bba -r 61e40a447c92 lisp/buff-menu.el
--- a/lisp/buff-menu.el	Sat Apr 02 04:08:50 1994 +0000
+++ b/lisp/buff-menu.el	Sat Apr 02 04:13:09 1994 +0000
@@ -111,10 +111,17 @@
 \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line."
   (kill-all-local-variables)
   (use-local-map Buffer-menu-mode-map)
+  (setq major-mode 'Buffer-menu-mode)
+  (setq mode-name "Buffer Menu")
+  (save-excursion
+    (goto-char (point-min))
+    (forward-line 2)
+    (while (not (eobp))
+      (put-text-property (point) (save-excursion (end-of-line) (point))
+			 'mouse-face 'highlight)
+      (forward-line 1)))
   (setq truncate-lines t)
   (setq buffer-read-only t)
-  (setq major-mode 'Buffer-menu-mode)
-  (setq mode-name "Buffer Menu")
   (run-hooks 'buffer-menu-mode-hook))
 
 (defvar Buffer-menu-buffer-column nil)