changeset 6638:61e40a447c92

(Buffer-menu-mode): Add mouse-face properties.
author Karl Heuer <kwzh@gnu.org>
date Sat, 02 Apr 1994 04:13:09 +0000
parents 49120b664bba
children b7196b4a3679
files lisp/buff-menu.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)