mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(electric-buffer-update-highlight): New function.

Browse source 
(electric-buffer-overlay): New variable.
(electric-buffer-menu-looper): Call electric-buffer-update-highlight.
(electric-buffer-list): Likewise.
This commit is contained in:
Richard M. Stallman 2001-11-13 17:29:40 +00:00
parent fad241d332
commit ede8f2fea1
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ebuff-menu.el
View file

@ -64,6 +64,7 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
(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 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
(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 ()
@ -263,6 +265,18 @@ Returns to Electric Buffer Menu when done."
(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)
;;; ebuff-menu.el ends here