Lines Matching defs:buffer
1 ;;; ebuff-menu.el --- electric-buffer-list mode
30 ;; point, `electric-buffer-list' works like ^r select buffer from the
37 ;; this depends on the format of list-buffers (from src/buffer.c) and
40 (defvar electric-buffer-menu-mode-map nil)
42 (defvar electric-buffer-menu-mode-hook nil
43 "Normal hook run by `electric-buffer-list'.")
46 (defun electric-buffer-list (arg)
47 "Pop up a buffer describing the set of Emacs buffers.
48 Vaguely like ITS lunar select buffer; combining typeoutoid buffer
49 listing with menuoid buffer selection.
51 If the very next character typed is a space then the buffer list
52 window disappears. Otherwise, one may move around in the buffer list
55 To exit and select a new buffer, type a space when the cursor is on
56 the appropriate line of the buffer-list window. Other commands are
59 Run hooks in `electric-buffer-menu-mode-hook' on entry.
61 \\{electric-buffer-menu-mode-map}"
63 (let (select buffer)
65 (setq buffer (list-buffers-noselect arg))
66 (Electric-pop-up-window buffer)
69 (set-buffer buffer)
70 (Electric-buffer-menu-mode)
71 (electric-buffer-update-highlight)
73 (catch 'electric-buffer-menu-select
74 (message "<<< Press Return to bury the buffer list >>>")
78 (throw 'electric-buffer-menu-select nil)))
93 (Electric-command-loop 'electric-buffer-menu-select
96 'electric-buffer-menu-looper
98 (set-buffer buffer)
100 (bury-buffer buffer)
103 (progn (set-buffer buffer)
110 (switch-to-buffer (Buffer-menu-buffer t))))))))
112 (defun electric-buffer-menu-looper (state condition)
114 (not (memq (car condition) '(buffer-read-only
115 end-of-buffer
116 beginning-of-buffer))))
127 (electric-buffer-update-highlight))
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.
148 \\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
151 \\{electric-buffer-menu-mode-map}
153 Entry to this mode via command `electric-buffer-list' calls the value of
154 `electric-buffer-menu-mode-hook'."
158 (use-local-map electric-buffer-menu-mode-map)
160 (setq mode-line-buffer-identification "Electric Buffer List")
162 (setq Helper-return-blurb "return to buffer editing")
164 (setq buffer-read-only t)
165 (setq major-mode 'Electric-buffer-menu-mode)
168 (run-mode-hooks 'electric-buffer-menu-mode-hook))
172 (put 'Electric-buffer-menu-undefined 'suppress-keymap t)
173 (if electric-buffer-menu-mode-map
176 (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined)
179 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
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)
215 (define-key map "\e>" 'end-of-buffer)
216 (define-key map "\e<" 'beginning-of-buffer)
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)
230 (other-buffer))))
232 (defun Electric-buffer-menu-select ()
235 Select buffer at point and display buffers marked \">\" in other windows."
237 (throw 'electric-buffer-menu-select (point)))
239 (defun Electric-buffer-menu-mouse-select (event)
242 (set-buffer (window-buffer (selected-window)))
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 ()
268 "View buffer on current line in Electric Buffer Menu.
271 (let ((bufnam (Buffer-menu-buffer nil)))
273 (view-buffer bufnam)
278 (defvar electric-buffer-overlay nil)
279 (defun electric-buffer-update-highlight ()
280 (when (eq major-mode 'Electric-buffer-menu-mode)
282 (or electric-buffer-overlay
284 (make-local-variable 'electric-buffer-overlay)
285 (setq electric-buffer-overlay (make-overlay (point) (point)))))
286 (move-overlay electric-buffer-overlay
289 (overlay-put electric-buffer-overlay 'face 'highlight)))