[Emacs-diffs] Changes to emacs/lisp/ebuff-menu.el

[Richard M. Stallman]

Index: emacs/lisp/ebuff-menu.el
diff -u emacs/lisp/ebuff-menu.el:1.27 emacs/lisp/ebuff-menu.el:1.28
--- emacs/lisp/ebuff-menu.el:1.27       Thu Aug 23 18:17:34 2001
+++ emacs/lisp/ebuff-menu.el    Tue Nov 13 12:29:40 2001
@@ -64,6 +64,7 @@
          (progn
            (set-buffer buffer)
            (Electric-buffer-menu-mode)
+           (electric-buffer-update-highlight)
            (setq select
                  (catch 'electric-buffer-menu-select
                    (message "<<< Press Return to bury the buffer list >>>")
@@ -116,7 +117,8 @@
         (goto-char (point-max))
         (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)
 (defun Electric-buffer-menu-mode ()
@@ -262,6 +264,18 @@
       (ding)
       (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)