Mercurial > emacs

comparison lisp/ebuff-menu.el @ 50068:9fa70ec97b76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(electric-buffer-update-highlight): Do nothing if major mode isn't `Electric-buffer-menu-mode'.
author John Paul Wallington <jpw@pobox.com>
date Mon, 10 Mar 2003 03:06:13 +0000
parents af49d6f1e6cc
children 695cf19ef79e
comparison
equal deleted inserted replaced
50067:c623407cb87d 50068:9fa70ec97b76
267 (message "Buffer %s does not exist!" bufnam) 267 (message "Buffer %s does not exist!" bufnam)
268 (sit-for 4)))) 268 (sit-for 4))))
269 269
270 (defvar electric-buffer-overlay nil) 270 (defvar electric-buffer-overlay nil)
271 (defun electric-buffer-update-highlight () 271 (defun electric-buffer-update-highlight ()
272 ;; Make sure we have an overlay to use. 272 (when (eq major-mode 'Electric-buffer-menu-mode)
273 (or electric-buffer-overlay 273 ;; Make sure we have an overlay to use.
274 (progn 274 (or electric-buffer-overlay
275 (make-local-variable 'electric-buffer-overlay) 275 (progn
276 (setq electric-buffer-overlay (make-overlay (point) (point))))) 276 (make-local-variable 'electric-buffer-overlay)
277 (move-overlay electric-buffer-overlay 277 (setq electric-buffer-overlay (make-overlay (point) (point)))))
278 (save-excursion (beginning-of-line) (point)) 278 (move-overlay electric-buffer-overlay
279 (save-excursion (end-of-line) (point))) 279 (save-excursion (beginning-of-line) (point))
280 (overlay-put electric-buffer-overlay 'face 'highlight)) 280 (save-excursion (end-of-line) (point)))
281 (overlay-put electric-buffer-overlay 'face 'highlight)))
281 282
282 (provide 'ebuff-menu) 283 (provide 'ebuff-menu)
283 284
284 ;;; ebuff-menu.el ends here 285 ;;; ebuff-menu.el ends here