andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(electric-buffer-update-highlight): Do nothing

Browse source 
if major mode isn't `Electric-buffer-menu-mode'.
This commit is contained in:
John Paul Wallington 2003-03-10 03:06:13 +00:00
parent e361e87a42
commit 080314d3e6
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/ebuff-menu.el
View file

@ -269,15 +269,16 @@ Returns to Electric Buffer Menu when done."
(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))
(when (eq major-mode 'Electric-buffer-menu-mode)
;; 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)