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