54 |
|
|
55 |
Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. |
Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. |
56 |
|
|
57 |
\\{electric-buffer-menu-mode-map}" |
\\{electric-buffer-menu-mode-map}" |
58 |
(interactive "P") |
(interactive "P") |
59 |
(let (select buffer) |
(let (select buffer) |
60 |
(save-window-excursion |
(save-window-excursion |
74 |
(throw 'electric-buffer-menu-select nil))) |
(throw 'electric-buffer-menu-select nil))) |
75 |
(let ((start-point (point)) |
(let ((start-point (point)) |
76 |
(first (progn (goto-char (point-min)) |
(first (progn (goto-char (point-min)) |
77 |
(forward-line 2) |
(unless Buffer-menu-use-header-line |
78 |
|
(forward-line 2)) |
79 |
(point))) |
(point))) |
80 |
(last (progn (goto-char (point-max)) |
(last (progn (goto-char (point-max)) |
81 |
(forward-line -1) |
(forward-line -1) |
113 |
(signal (car condition) (cdr condition))) |
(signal (car condition) (cdr condition))) |
114 |
((< (point) (car state)) |
((< (point) (car state)) |
115 |
(goto-char (point-min)) |
(goto-char (point-min)) |
116 |
(forward-line 2)) |
(unless Buffer-menu-use-header-line |
117 |
|
(forward-line 2))) |
118 |
((> (point) (cdr state)) |
((> (point) (cdr state)) |
119 |
(goto-char (point-max)) |
(goto-char (point-max)) |
120 |
(forward-line -1) |
(forward-line -1) |
211 |
(define-key map [escape escape escape] 'Electric-buffer-menu-quit) |
(define-key map [escape escape escape] 'Electric-buffer-menu-quit) |
212 |
(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select) |
(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select) |
213 |
(setq electric-buffer-menu-mode-map map))) |
(setq electric-buffer-menu-mode-map map))) |
214 |
|
|
215 |
(defun Electric-buffer-menu-exit () |
(defun Electric-buffer-menu-exit () |
216 |
(interactive) |
(interactive) |
217 |
(setq unread-command-events (listify-key-sequence (this-command-keys))) |
(setq unread-command-events (listify-key-sequence (this-command-keys))) |
269 |
|
|
270 |
(defvar electric-buffer-overlay nil) |
(defvar electric-buffer-overlay nil) |
271 |
(defun electric-buffer-update-highlight () |
(defun electric-buffer-update-highlight () |
272 |
;; Make sure we have an overlay to use. |
(when (eq major-mode 'Electric-buffer-menu-mode) |
273 |
(or electric-buffer-overlay |
;; Make sure we have an overlay to use. |
274 |
(progn |
(or electric-buffer-overlay |
275 |
(make-local-variable 'electric-buffer-overlay) |
(progn |
276 |
(setq electric-buffer-overlay (make-overlay (point) (point))))) |
(make-local-variable 'electric-buffer-overlay) |
277 |
(move-overlay electric-buffer-overlay |
(setq electric-buffer-overlay (make-overlay (point) (point))))) |
278 |
(save-excursion (beginning-of-line) (point)) |
(move-overlay electric-buffer-overlay |
279 |
(save-excursion (end-of-line) (point))) |
(save-excursion (beginning-of-line) (point)) |
280 |
(overlay-put electric-buffer-overlay 'face 'highlight)) |
(save-excursion (end-of-line) (point))) |
281 |
|
(overlay-put electric-buffer-overlay 'face 'highlight))) |
282 |
|
|
283 |
(provide 'ebuff-menu) |
(provide 'ebuff-menu) |
284 |
|
|