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 |
209 |
(define-key map [escape escape escape] 'Electric-buffer-menu-quit) |
(define-key map [escape escape escape] 'Electric-buffer-menu-quit) |
210 |
(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select) |
(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select) |
211 |
(setq electric-buffer-menu-mode-map map))) |
(setq electric-buffer-menu-mode-map map))) |
212 |
|
|
213 |
(defun Electric-buffer-menu-exit () |
(defun Electric-buffer-menu-exit () |
214 |
(interactive) |
(interactive) |
215 |
(setq unread-command-events (listify-key-sequence (this-command-keys))) |
(setq unread-command-events (listify-key-sequence (this-command-keys))) |