/[emacs]/emacs/lisp/ebuff-menu.el
ViewVC logotype

Diff of /emacs/lisp/ebuff-menu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by monnier, Thu Aug 23 22:17:34 2001 UTC revision 1.28 by rms, Tue Nov 13 17:29:40 2001 UTC
# Line 64  Calls value of `electric-buffer-menu-mod Line 64  Calls value of `electric-buffer-menu-mod
64            (progn            (progn
65              (set-buffer buffer)              (set-buffer buffer)
66              (Electric-buffer-menu-mode)              (Electric-buffer-menu-mode)
67                (electric-buffer-update-highlight)
68              (setq select              (setq select
69                    (catch 'electric-buffer-menu-select                    (catch 'electric-buffer-menu-select
70                      (message "<<< Press Return to bury the buffer list >>>")                      (message "<<< Press Return to bury the buffer list >>>")
# Line 116  Calls value of `electric-buffer-menu-mod Line 117  Calls value of `electric-buffer-menu-mod
117           (goto-char (point-max))           (goto-char (point-max))
118           (forward-line -1)           (forward-line -1)
119           (if (pos-visible-in-window-p (point-max))           (if (pos-visible-in-window-p (point-max))
120               (recenter -1)))))               (recenter -1))))
121      (electric-buffer-update-highlight))
122    
123  (put 'Electric-buffer-menu-mode 'mode-class 'special)  (put 'Electric-buffer-menu-mode 'mode-class 'special)
124  (defun Electric-buffer-menu-mode ()  (defun Electric-buffer-menu-mode ()
# Line 263  Returns to Electric Buffer Menu when don Line 265  Returns to Electric Buffer Menu when don
265        (message "Buffer %s does not exist!" bufnam)        (message "Buffer %s does not exist!" bufnam)
266        (sit-for 4))))        (sit-for 4))))
267    
268    (defvar electric-buffer-overlay nil)
269    (defun electric-buffer-update-highlight ()
270      ;; Make sure we have an overlay to use.
271      (or electric-buffer-overlay
272          (progn
273            (make-local-variable 'electric-buffer-overlay)
274            (setq electric-buffer-overlay (make-overlay (point) (point)))))
275      (move-overlay electric-buffer-overlay
276                    (save-excursion (beginning-of-line) (point))
277                    (save-excursion (end-of-line) (point)))
278      (overlay-put electric-buffer-overlay 'face 'highlight))
279    
280  (provide 'ebuff-menu)  (provide 'ebuff-menu)
281    
282  ;;; ebuff-menu.el ends here  ;;; ebuff-menu.el ends here

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26