Lines Matching +defs:menu +defs:map
1 ;;; ebuff-menu.el --- electric-buffer-list mode
38 ;; on stuff in lisp/buff-menu.el
40 (defvar electric-buffer-menu-mode-map nil)
42 (defvar electric-buffer-menu-mode-hook nil
57 much like those of `Buffer-menu-mode'.
59 Run hooks in `electric-buffer-menu-mode-hook' on entry.
61 \\{electric-buffer-menu-mode-map}"
70 (Electric-buffer-menu-mode)
73 (catch 'electric-buffer-menu-select
78 (throw 'electric-buffer-menu-select nil)))
81 (unless Buffer-menu-use-header-line
93 (Electric-command-loop 'electric-buffer-menu-select
96 'electric-buffer-menu-looper
99 (Buffer-menu-mode)
105 (Buffer-menu-execute)
109 (Buffer-menu-select)
110 (switch-to-buffer (Buffer-menu-buffer t))))))))
112 (defun electric-buffer-menu-looper (state condition)
120 (unless Buffer-menu-use-header-line
131 (put 'Electric-buffer-menu-mode 'mode-class 'special)
132 (defun Electric-buffer-menu-mode ()
136 \\<electric-buffer-menu-mode-map>
137 \\[keyboard-quit] or \\[Electric-buffer-menu-quit] -- exit buffer menu, returning to previous window and buffer
140 \\[Electric-buffer-menu-select] -- select buffer of line point is on.
143 \\[Buffer-menu-mark] -- mark buffer to be displayed.
144 \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
145 \\[Buffer-menu-save] -- mark that buffer to be saved.
146 \\[Buffer-menu-delete] or \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted.
147 \\[Buffer-menu-unmark] -- remove all kinds of marks from current line.
148 \\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
149 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
151 \\{electric-buffer-menu-mode-map}
154 `electric-buffer-menu-mode-hook'."
158 (use-local-map electric-buffer-menu-mode-map)
165 (setq major-mode 'Electric-buffer-menu-mode)
168 (run-mode-hooks 'electric-buffer-menu-mode-hook))
170 ;; generally the same as Buffer-menu-mode-map
171 ;; (except we don't indirect to global-map)
172 (put 'Electric-buffer-menu-undefined 'suppress-keymap t)
173 (if electric-buffer-menu-mode-map
175 (let ((map (make-keymap)))
176 (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined)
177 (define-key map "\e" nil)
178 (define-key map "\C-z" 'suspend-emacs)
179 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
180 (define-key map (char-to-string help-char) 'Helper-help)
181 (define-key map "?" 'Helper-describe-bindings)
182 (define-key map "\C-c" nil)
183 (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
184 (define-key map "\C-]" 'Electric-buffer-menu-quit)
185 (define-key map "q" 'Electric-buffer-menu-quit)
186 (define-key map " " 'Electric-buffer-menu-select)
187 (define-key map "\C-m" 'Electric-buffer-menu-select)
188 (define-key map "\C-l" 'recenter)
189 (define-key map "s" 'Buffer-menu-save)
190 (define-key map "d" 'Buffer-menu-delete)
191 (define-key map "k" 'Buffer-menu-delete)
192 (define-key map "\C-d" 'Buffer-menu-delete-backwards)
193 ;(define-key map "\C-k" 'Buffer-menu-delete)
194 (define-key map "\177" 'Buffer-menu-backup-unmark)
195 (define-key map "~" 'Buffer-menu-not-modified)
196 (define-key map "u" 'Buffer-menu-unmark)
199 (define-key map (char-to-string i) 'digit-argument)
200 (define-key map (concat "\e" (char-to-string i)) 'digit-argument)
202 (define-key map "-" 'negative-argument)
203 (define-key map "\e-" 'negative-argument)
204 (define-key map "m" 'Buffer-menu-mark)
205 (define-key map "\C-u" 'universal-argument)
206 (define-key map "\C-p" 'previous-line)
207 (define-key map "\C-n" 'next-line)
208 (define-key map "p" 'previous-line)
209 (define-key map "n" 'next-line)
210 (define-key map "\C-v" 'scroll-up)
211 (define-key map "\ev" 'scroll-down)
212 (define-key map ">" 'scroll-right)
213 (define-key map "<" 'scroll-left)
214 (define-key map "\e\C-v" 'scroll-other-window)
215 (define-key map "\e>" 'end-of-buffer)
216 (define-key map "\e<" 'beginning-of-buffer)
217 (define-key map "\e\e" nil)
218 (define-key map "\e\e\e" 'Electric-buffer-menu-quit)
219 (define-key map [escape escape escape] 'Electric-buffer-menu-quit)
220 (define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)
221 (setq electric-buffer-menu-mode-map map)))
223 (defun Electric-buffer-menu-exit ()
228 (throw 'electric-buffer-menu-select nil)
229 (error (Buffer-menu-mode)
232 (defun Electric-buffer-menu-select ()
237 (throw 'electric-buffer-menu-select (point)))
239 (defun Electric-buffer-menu-mouse-select (event)
244 (throw 'electric-buffer-menu-select (point)))
246 (defun Electric-buffer-menu-quit ()
250 (throw 'electric-buffer-menu-select nil))
252 (defun Electric-buffer-menu-undefined ()
256 (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
257 (eq (key-binding " ") 'Electric-buffer-menu-select)
262 Type \\[Electric-buffer-menu-quit] to exit, \
263 \\[Electric-buffer-menu-select] to select, \
267 (defun Electric-buffer-menu-mode-view-buffer ()
271 (let ((bufnam (Buffer-menu-buffer nil)))
280 (when (eq major-mode 'Electric-buffer-menu-mode)
291 (provide 'ebuff-menu)
294 ;;; ebuff-menu.el ends here