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 >>>") |
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 () |
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 |