[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ebuff-menu.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ebuff-menu.el |
Date: |
Sun, 09 Mar 2003 22:06:14 -0500 |
Index: emacs/lisp/ebuff-menu.el
diff -c emacs/lisp/ebuff-menu.el:1.30 emacs/lisp/ebuff-menu.el:1.31
*** emacs/lisp/ebuff-menu.el:1.30 Thu Mar 6 05:50:20 2003
--- emacs/lisp/ebuff-menu.el Sun Mar 9 22:06:13 2003
***************
*** 269,283 ****
(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)
--- 269,284 ----
(defvar electric-buffer-overlay nil)
(defun electric-buffer-update-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)