![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ebuff-menu.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to ebuff-menu.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 root 1: ; buggestions to [email protected]
2:
3: ;; who says one can't have typeout windows in gnu emacs?
4: ;; like ^r select buffer from its emacs lunar or tmacs libraries.
5:
6: ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
7:
8: ;; This file is part of GNU Emacs.
9:
10: ;; GNU Emacs is distributed in the hope that it will be useful,
11: ;; but WITHOUT ANY WARRANTY. No author or distributor
12: ;; accepts responsibility to anyone for the consequences of using it
13: ;; or for whether it serves any particular purpose or works at all,
14: ;; unless he says so in writing. Refer to the GNU Emacs General Public
15: ;; License for full details.
16:
17: ;; Everyone is granted permission to copy, modify and redistribute
18: ;; GNU Emacs, but only under the conditions described in the
19: ;; GNU Emacs General Public License. A copy of this license is
20: ;; supposed to have been given to you along with GNU Emacs so you
21: ;; can know your rights and responsibilities. It should be in a
22: ;; file named COPYING. Among other things, the copyright notice
23: ;; and this notice must be preserved on all copies.
24:
25:
26: (require 'electric)
27:
28: ;; this depends on the format of list-buffers (from src/buffer.c) and
29: ;; on stuff in lisp/buff-menu.el
30:
31: (defvar electric-buffer-menu-mode-map nil)
32: (defun electric-buffer-list (arg)
33: "Vaguely like ITS lunar select buffer;
34: combining typeoutoid buffer listing with menuoid buffer selection.
35:
36: This pops up a buffer describing the set of emacs buffers.
37: If the very next character typed is a space then the buffer list
38: window disappears.
39:
40: Otherwise, one may move around in the buffer list window, marking
41: buffers to be selected, saved or deleted.
42:
43: To exit and select a new buffer, type Space when the cursor is on the
44: appropriate line of the buffer-list window.
45:
46: Other commands are much like those of buffer-menu-mode.
47:
48: Calls value of electric-buffer-menu-mode-hook on entry if non-nil.
49:
50: \\{electric-buffer-menu-mode-map}"
51: (interactive "P")
52: (let (select buffer)
53: (save-window-excursion
54: (save-window-excursion (list-buffers arg))
55: (setq buffer (window-buffer (Electric-pop-up-window "*Buffer List*")))
56: (unwind-protect
57: (progn
58: (set-buffer buffer)
59: (Electric-buffer-menu-mode)
60: (setq select
61: (catch 'electric-buffer-menu-select
62: (message "<<< Press Space to bury the buffer list >>>")
63: (if (= (setq unread-command-char (read-char)) ?\ )
64: (progn (setq unread-command-char -1)
65: (throw 'electric-buffer-menu-select nil)))
66: (let ((first (progn (goto-char (point-min))
67: (forward-line 2)
68: (point)))
69: (last (progn (goto-char (point-max))
70: (forward-line -1)
71: (point)))
72: (goal-column 0))
73: (goto-char first)
74: (Electric-command-loop 'electric-buffer-menu-select
75: nil
76: t
77: 'electric-buffer-menu-looper
78: (cons first last))))))
79: (set-buffer buffer)
80: (Buffer-menu-mode)
81: (bury-buffer buffer)
82: (message "")))
83: (if select
84: (progn (set-buffer buffer)
85: (let ((opoint (point-marker)))
86: (Buffer-menu-execute)
87: (goto-char (point-min))
88: (if (prog1 (search-forward "\n>" nil t)
89: (goto-char opoint) (set-marker opoint nil))
90: (Buffer-menu-select)
91: (switch-to-buffer (Buffer-menu-buffer t))))))))
92:
93: (defun electric-buffer-menu-looper (state condition)
94: (cond ((and condition
95: (not (memq (car condition) '(buffer-read-only
96: end-of-buffer
97: beginning-of-buffer))))
98: (signal (car condition) (cdr condition)))
99: ((< (point) (car state))
100: (goto-char (point-min))
101: (forward-line 2))
102: ((> (point) (cdr state))
103: (goto-char (point-max))
104: (forward-line -1)
105: (if (pos-visible-in-window-p (point-max))
106: (recenter -1)))))
107:
108: (put 'Electric-buffer-menu-mode 'mode-class 'special)
109: (defun Electric-buffer-menu-mode ()
110: "Major mode for editing a list of buffers.
111: Each line describes one of the buffers in Emacs.
112: Letters do not insert themselves; instead, they are commands.
113: \\{electric-buffer-menu-mode-map}
114:
115: C-g or C-c C-c -- exit buffer menu, returning to previous window and buffer
116: configuration. If the very first character typed is a space, it
117: also has this effect.
118: Space -- select buffer of line point is on.
119: Also show buffers marked with m in other windows,
120: deletes buffers marked with \"D\", and saves those marked with \"S\".
121: m -- mark buffer to be displayed.
122: ~ -- clear modified-flag on that buffer.
123: s -- mark that buffer to be saved.
124: d or C-d -- mark that buffer to be deleted.
125: u -- remove all kinds of marks from current line.
126: v -- view buffer, returning when done.
127: Delete -- back up a line and remove marks.
128:
129:
130: Entry to this mode via command \\[electric-buffer-list] calls the value of
131: electric-buffer-menu-mode-hook if it is non-nil."
132: (kill-all-local-variables)
133: (use-local-map electric-buffer-menu-mode-map)
134: (setq mode-name "Electric Buffer Menu")
135: (setq mode-line-buffer-identification "Electric Buffer List")
136: (if (memq 'mode-name mode-line-format)
137: (progn (setq mode-line-format (copy-sequence mode-line-format))
138: (setcar (memq 'mode-name mode-line-format) "Buffers")))
139: (make-local-variable 'Helper-return-blurb)
140: (setq Helper-return-blurb "return to buffer editing")
141: (setq truncate-lines t)
142: (setq buffer-read-only t)
143: (setq major-mode 'Electric-buffer-menu-mode)
144: (goto-char (point-min))
145: (if (search-forward "\n." nil t) (forward-char -1))
146: (run-hooks 'electric-buffer-menu-mode-hook))
147:
148: ;; generally the same as Buffer-menu-mode-map
149: ;; (except we don't indirect to global-map)
150: (put 'Electric-buffer-menu-undefined 'suppress-keymap t)
151: (if electric-buffer-menu-mode-map
152: nil
153: (let ((map (make-keymap)))
154: (fillarray map 'Electric-buffer-menu-undefined)
155: (define-key map "\e" (make-keymap))
156: (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined)
157: (define-key map "\C-z" 'suspend-emacs)
158: (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
159: (define-key map "\C-h" 'Helper-help)
160: (define-key map "?" 'Helper-describe-bindings)
161: (define-key map "\C-c" nil)
162: (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
163: (define-key map "\C-]" 'Electric-buffer-menu-quit)
164: (define-key map "q" 'Electric-buffer-menu-quit)
165: (define-key map " " 'Electric-buffer-menu-select)
166: (define-key map "\C-l" 'recenter)
167: (define-key map "s" 'Buffer-menu-save)
168: (define-key map "d" 'Buffer-menu-delete)
169: (define-key map "k" 'Buffer-menu-delete)
170: (define-key map "\C-d" 'Buffer-menu-delete-backwards)
171: ;(define-key map "\C-k" 'Buffer-menu-delete)
172: (define-key map "\177" 'Buffer-menu-backup-unmark)
173: (define-key map "~" 'Buffer-menu-not-modified)
174: (define-key map "u" 'Buffer-menu-unmark)
175: (let ((i ?0))
176: (while (<= i ?9)
177: (define-key map (char-to-string i) 'digit-argument)
178: (define-key map (concat "\e" (char-to-string i)) 'digit-argument)
179: (setq i (1+ i))))
180: (define-key map "-" 'negative-argument)
181: (define-key map "\e-" 'negative-argument)
182: (define-key map "m" 'Buffer-menu-mark)
183: (define-key map "\C-u" 'universal-argument)
184: (define-key map "\C-p" 'previous-line)
185: (define-key map "\C-n" 'next-line)
186: (define-key map "p" 'previous-line)
187: (define-key map "n" 'next-line)
188: (define-key map "\C-v" 'scroll-up)
189: (define-key map "\ev" 'scroll-down)
190: (define-key map "\e\C-v" 'scroll-other-window)
191: (define-key map "\e>" 'end-of-buffer)
192: (define-key map "\e<" 'beginning-of-buffer)
193: (setq electric-buffer-menu-mode-map map)))
194:
195: (defun Electric-buffer-menu-exit ()
196: (interactive)
197: (setq unread-command-char last-input-char)
198: ;; for robustness
199: (condition-case ()
200: (throw 'electric-buffer-menu-select nil)
201: (error (Buffer-menu-mode)
202: (other-buffer))))
203:
204: (defun Electric-buffer-menu-select ()
205: "Leave Electric Buffer Menu, selecting buffers and executing changes.
206: Saves buffers marked \"S\". Deletes buffers marked \"K\".
207: Selects buffer at point and displays buffers marked \">\" in other
208: windows."
209: (interactive)
210: (throw 'electric-buffer-menu-select (point)))
211:
212: (defun Electric-buffer-menu-quit ()
213: "Leave Electric Buffer Menu, restoring previous window configuration.
214: Does not execute select, save, or delete commands."
215: (interactive)
216: (throw 'electric-buffer-menu-select nil))
217:
218: (defun Electric-buffer-menu-undefined ()
219: (interactive)
220: (ding)
221: (message (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
222: (eq (key-binding " ") 'Electric-buffer-menu-select)
223: (eq (key-binding "\C-h") 'Helper-help)
224: (eq (key-binding "?") 'Helper-describe-bindings))
225: "Type C-c C-c to exit, Space to select, C-h for help, ? for commands"
226: (substitute-command-keys "\
227: Type \\[Electric-buffer-menu-quit] to exit, \
228: \\[Electric-buffer-menu-select] to select, \
229: \\[Helper-help] for help, \\[Helper-describe-bindings] for commands.")))
230: (sit-for 4))
231:
232: (defun Electric-buffer-menu-mode-view-buffer ()
233: "View buffer on current line in Electric Buffer Menu.
234: Returns to Electric Buffer Menu when done."
235: (interactive)
236: (let ((bufnam (Buffer-menu-buffer nil)))
237: (if bufnam
238: (view-buffer bufnam)
239: (ding)
240: (message "Buffer %s does not exist!" bufnam)
241: (sit-for 4))))
242:
243:
244:
245:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.