Line highlighting in electric-buffer-list

[Chong Yidong]

I find it helpful to have line highlighting in the electric buffer
list. Would it be desirable to add it? The following short hack,
copied from RMAIL's summary mode, will do the trick:


--- ebuff-menu.old.el   Sun Nov 11 18:33:50 2001
+++ ebuff-menu.el       Sun Nov 11 18:36:55 2001
@@ -65,4 +65,5 @@
            (set-buffer buffer)
            (Electric-buffer-menu-mode)
+      (electric-buffer-update-highlight)
            (setq select
                  (catch 'electric-buffer-menu-select
@@ -117,5 +118,6 @@
         (forward-line -1)
         (if (pos-visible-in-window-p (point-max))
-            (recenter -1)))))
+            (recenter -1))))
+  (electric-buffer-update-highlight))
 
 (put 'Electric-buffer-menu-mode 'mode-class 'special)
@@ -263,4 +265,16 @@
       (message "Buffer %s does not exist!" bufnam)
       (sit-for 4))))
+
+(defvar electric-buffer-overlay nil)
+(defun electric-buffer-update-highlight ()
+  ;; Make sure we have an overlay to use.
+  (or electric-buffer-overlay
+      (progn
+        (make-local-variable 'electric-buffer-overlay)
+        (setq electric-buffer-overlay (make-overlay (point) (point)))))
+  (move-overlay electric-buffer-overlay
+                (save-excursion (beginning-of-line) (point))
+                (save-excursion (end-of-line) (point)))
+  (overlay-put electric-buffer-overlay 'face 'highlight))
 
 (provide 'ebuff-menu)