From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 2 Apr 1994 04:13:09 +0000 (+0000)
Subject: (Buffer-menu-mode): Add mouse-face properties.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/823316aaf204e9fc93cb8033dd37dee261543a0e

(Buffer-menu-mode): Add mouse-face properties.
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e830012cb5..4a5a68f73b 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -111,10 +111,17 @@ Letters do not insert themselves; instead, they are commands.
 \\[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 truncate-lines t)
-  (setq buffer-read-only t)
   (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)
   (run-hooks 'buffer-menu-mode-hook))
 
 (defvar Buffer-menu-buffer-column nil)